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geluidsband, elektronisch of op welke andere wijze ook en 
evenmin in een retrieval system worden opgeslagen zonder 
voorafgaande schriftelijke toestemming van de uitgever. 


ENKELE OPMERKINGEN VOORAF 


Dit boek is een zelfstudiegids waarin u zelf nogal actief wordt 
betrokken. U zult bijvoorbeeld regelmatig toetsvragen en opgaven 
voorgeschoteld krijgen. Hoewel de antwoorden daarop steeds 
direct worden gegeven, verdient het uiteraard aanbeveling eerst 
zelf een antwoord op te schrijven. Een eenvoudig stukje papier, 
met enige zelfdiscipline gehanteerd, zal in dit opzicht wonderen 
doen …. 


Elk hoofdstuk wordt voorafgegaan door een opsomming van doel- 
stellingen, en afgesloten met een afzonderlijke serie toetsvragen. 
Aan de hand hiervan kunt u zelf controleren in hoeverre u de 
desbetreffende leerstof hebt begrepen en actief kunt toepassen. 
Voor de meer gevorderde gebruiker biedt dit de mogelijkheid snel 
te kunnen vaststellen of een gegeven hoofdstuk voor hem of haar 
relevant is. Het hoofdstuk kan dan eventueel worden overgesla- 
gen. Het boek wordt afgesloten met een eindtoets waarin uw alge- 
meen begrip van de gehele materie wordt getest. 


We zijn er van uitgegaan dat u bij het doornemen van dit boek de 
beschikking hebt over een computer (met cassette- of schijfgeheu- 
gen). Programmeren is namelijk een vaardigheid die alleen te leren 
is door 'doen',. U wordt dan ook aangemoedigd de gegeven taal- 
elementen, constructies en programma's zelf te draaien, eventueel 
aan te passen, en aan de hand van de behandelde leerstof eigen 
toepassingen te maken. Om dat laatste gaat het tenslotte. We wen- 
sen u daarbij veel succes! 
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VOORWOORD 


Een bestand is een verzameling bij elkaar behorende gegevens die op 
een bepaalde wijze in een extern geheugen van een computer — bij- 
voorbeeld cassette of floppy disc — wordt opgeslagen, en die door de 
computergebruiker als een eenheid kan worden aangesproken. Bij 
een gegevensbestand kunnen we bijvoorbeeld denken aan verzame- 
lingen boekhoudkundige gegevens, fiscale gegevens, gegevens over 
bedrijfsvoering, verkoopcijfers, ledenlijsten, adreslijsten, statisti- 
sche gegevens, enzovoort. Dergelijke gegevensverzamelingen kun- 
nen ontstaan bij grote, uiterst professionele computertoepassingen, 
maar ook bij toepassingen die in de sfeer van kleinere bedrijf sadmi- 
nistraties, persoonlijk gebruik, hobby of onderwijs liggen. Vooral 
de opkomst van de microcomputer heeft dit soort toepassingen bin- 
nen het bereik van een groter publiek gebracht. 


Dit boek heeft als doelstelling u te leren deze gegevensbestanden op 
te bouwen en te onderhouden op cassettes en/of schijfgeheugens 
zoals floppy discs of harde schijven. We doen dit vanuit de program- 
meertaal MSX BASIC. Als uitgangspunt nemen we aan dat u al het een 
en ander van die taal weet, U kunt bijvoorbeeld programmateksten 
(listings) lezen, en zelf eenvoudige programma's schrijven. U bent 
bijvoorbeeld ook al aardig vertrouwd met begrippen zoals string- 
variabelen, stringfuncties en arrays. Voor alle zekerheid komen 
deze en soortgelijke basisbegrippen in het begin van dit boek wel 
aan de orde, maar het accent ligt daarbij meer op opfrissen, verdie- 
pen en nieuwe toepassingswijzen dan op een uitvoerige onderwijs- 
kundige presentatie. 


Met het werken met gegevensbestanden in BASIC of welke taal dan 
ook hoeft u geen enkele ervaring te hebben. Daarover gaat — zoals 
gezegd — dit boek. Stap voor stap, en aan de hand van praktische 
voorbeelden, wordt u in deze materie ingewijd. U zult daarin actief 
betrokken worden door zelf programma's en/of programmadelen te 
schrijven. Mocht u al enige ervaring hebben met gegevensbestanden, 
dan zult u met dit boek uw kennis waarschijnlijk kunnen verdiepen. 


WOORD VOORAF BĲ DE 
NEDERLANDSTALIGE UITGAVE 


Van geen enkele programmeertaal bestaan zoveel dialecten als van de 
programmeertaal BASIC, Veel fabrikanten van computers ontwikkel 
den hun eigen BASIC-versie, met als gevolg dat bijna geen enkel 
programma op een computer van 'het andere merk! draait. Enkele 
Japanse firma's besloten daarin verandering te brengen. Zij brach- 
ten de eerste MSX-computers op de markt. Amerikaanse en Europese 
computergiganten, waaronder Philips, volgden hun voorbeeld. 
Randapparatuur en programma's zijn volkomen uitwisselbaar, een 
eis die de homecomputermarkt terecht stelt, 


Nu geven de meeste boeken over BASIC niet veel meer dan een wat 
meer uitgebreide handleiding bij de computer. Ze geven een alfabe- 
tische opsomming van de toegestane 'statements' en functies, soms 
toegelicht met kleine voorbeeldprogramma's. Hoe met bestanden moet 
worden gewerkt blijkt in de meeste gevallen totaal niet. 


Moge dit boek daarom een welkome aanvulling zijn op uw bibliotheek. 
Het is een bewerking van het bekende boek van Finkel en Brown: 
“Data File Programming in BASIC". Het oorspronkelijke boek is 
vooral geschikt voor oudere Microsoft BASIC-versies, geïmplemen- 
teerd op veel microcomputers, werkende onder de besturingssyste- 
men CP/M en MS-DOS. Microsoft, een der grootste en belangrijkste 
softwarehuizen ter wereld, is ook de ontwerper van de nieuwe 
standaard voor homecomputers MSX BASIC, waarmee in dit boek 
gewerkt wordt, 


Het boek veronderstelt min of meer enige kennis over het schrijven 
van eenvoudige programma's in MSX BASIC. Het boek "Programmeer 
eursus MSX BASIC", eveneens uitgegeven door Academic Service, 
vormt hiervoor een prima basis, 


J.M. den Haan, 
P.J. Smith. 


l DUIDELIJKHEID, LEESBAARHEID 
EN LOGISCHE OPBOUW VAN BASIC 
PROGRAMMA'S 


1.0 DOELSTELLINGEN 


Na bestudering van dit hoofdstuk is het de bedoeling dat u: 

-= kunt aangeven hoe een programma volgens de 'top-to-bottom' 
methode geschreven moet worden; 

= met behulp van REMARK-opdrachten een inleidende module kunt 
schrijven; 

= zes manieren kunt aangeven voor de verzorging van programma- 
tekst en -uitvoer; 

= zeven methoden kunt aangeven om geheugenruimte te besparen. 


11 INLEIDING 


In dit boek behandelen we het werken met gegevensbestanden in de 
programmeertaal MSX BASIC, We gaan ervan uit dat u al het een en 
ander van de taal weet. U hebt bijvoorbeeld een beginnerscursus 
gevolgd of een inleidend boek over BASIC gelezen, waardoor u in 
ieder geval in staat bent programmateksten (Engels: listings) te 
lezen en zelf eenvoudige programma's te schrijven. Van gegevens- 
bestanden, of het werken daarmee in BASIC of welke taal dan ook, 
hoeft u op dit moment nog niets te weten. Daarover gaat — zoals 
gezegd — dit boek. 


De technieken die hierbij aan de orde komen zijn gebaseerd op 
bepaalde versies van BASIC. Over de verschillende BASIC-versies 
straks meer. We vermelden hier alvast dat we ons in eerste instan- 
tie hebben gebaseerd op zogenaamd MICROSOFT EXTENDED BASIC, 
zoals die op vele MSX-computers wordt toegepast. 


2 Duidelijkheid, leesbaarheid en logische opbouw 


Alle voorbeeldprogramma's die in dit boek voorkomen zijn op een 
Philips VG 8020 MSX-computer daadwerkelijk uitgetest. Werkt u 
met andere versies van BASIC, dan zullen de daarbij te gebruiken 
opdrachten en technieken vergelijkbaar, maar niet in alle gevallen 
dezelfde zijn. U zult dan het meeste profijt van dit boek trekken 
door het samen met de handleiding van uw computersysteem te 
gebruiken. 


Een van de eerste dingen waarmee we ons gaan bezighouden is de 
opbouw en duidelijkheid van het programma. Dat lijkt misschien 
overbodig, maar: programma's die met gegevensbestanden werken 
kunnen behoorlijk lang en ingewikkeld worden. En: hoe langer en 
ingewikkelder, des te groter de kans op fouten. Door een goede 
programmaopbouw zal de kans op fouten kleiner zijn. Mochten ze 
onverhoopt tóch voorkomen, dan zullen ze door een goede opbouw 
en uiterlijke verzorging van het programma gemakkelijker op te 
sporen en te verwijderen zijn. Het 'mes' snijdt dus aan twee kanten. 
Maar voordat we hierop verder ingaan eerst iets over de verschil 
lende versies van BASIC. 


1.2 DE TAAL BASIC 


BASIC werd in het begin van de jaren zestig ontwikkeld op het 
Dartmouth College in de Verenigde Staten. De taal was bedoeld voor 
studenten met weinig of geen kennis op het gebied van computers 
en wiskunde. In het oorspronkelijke BASIC waren daarom slechts 
die taalelementen opgenomen die een beginnende programmeur nodig 
zou hebben. Toen andere onderwijsinstellingen, computerfabrikan- 
ten en rekencentra ook BASIC gingen gebruiken, werden vaak 
extra elementen toegevoegd om de taal voor het eigen toepassings- 
gebied geschikter te maken. Zo kwamen in korte tijd vele BASIC 
‘dialecten' tot stand, zoals bijvoorbeeld Extended BASIC, Expanded 
BASIC, SUPERBASIC, XBASIC en BASIC PLUS. 


In 1978 trachtte het American National Standards Institute (ANSI) 
in deze Babylonische spraakverwarring enige orde te scheppen. Er 
werd een industriële norm voor BASIC vastgelegd — een gekortwiek- 
te vorm van de meest gangbare versies, waaraan alle BASIC- 
systemen minimaal moesten voldoen. Men sprak daarom van 'minimal 
BASIC', Ondanks die ANSI-norm bestaat vandaag-de-dag nog 
steeds een groot aantal BASIC-versies, De meeste daarvan lijken 
veel op elkaar, maar hebben toch hun eigen kenmerken en (eigen) 
aardigheden. 


Taalgebruik 3 


Op het gebied van microcomputers werden de meest gebruikte ver- 
sies van BASIC ontwikkeld door de Microsoft Company. Daarbij 
wordt in het algemeen van MICROSOFT BASIC gesproken. 


De programma's die in de hoofdtekst van dit boek voorkomen zijn 
gebaseerd op MICROSOFT EXTENDED BASIC (MSX). Het paraderen 
met de toeters en bellen van MSX BASIC is bewust vermeden. Liever 
hebben we ons willen richten op het presenteren van gemakkelijk te 
begrijpen programma's die zonder meer op alle MSX-computers kun- 
nen draaien, 


Aansluiting 
cassetterecorder 


Aansluiting 
disk drive 


Bron: Philips MSX thuiscomputer VG8080, gebruiksaanwijzing. 


4 Duidelijkheid, leesbaarheid en logische opbouw 


1.3 TAALGEBRUIK 


Door dit eenvoudige taalgebruik worden de programma's leesbaarder 
en zijn ook voor anderen gemakkelijker te begrijpen, Ook zijn fouten 
gemakkelijker op te sporen en te verbeteren. 


De gebruikte MSX BASIC-opdrachten zijn allemaal standaard. Zij 
'doen' het op elke MSX-computer, inclusief de nieuwe MSX 2-compu- 
ters, Dit geldt natuurlijk ook voor de opdrachten, waarmee met 
cassetteband en diskette gewerkt kan worden. Diverse 'basis'-MSX 
BASIC-opdrachten worden slechts kort in hoofdstuk 2 toegelicht. 
Wie hierover een uitgebreidere inleiding nodig heeft verwijzen we 
naar het boek "Programmeercursus MSX BASIC", uitgegeven door 
Academie Service. In dit boek vindt u ook een inleidend hoofdstuk 
over het werken met sequentiële bestanden op cassetteband en dis- 
kette, 


De programmaregels in dit boek zijn veelal 'breder' dan 40 tekens, 
Werkt u met een MSX 2-computer dan kunt u de 80-kolommenstand 
inschakelen. MSX 1-gebruikers raden we aan het scherm in te stel- 
len op 40 tekens (WIDTH 40 in SCREEN 0) en de opdrachten over 
meerdere beeldschermregels te verdelen , 


1.4 LEESBARE PROGRAMMA'S SCHRIJVEN 


Mede door eenvoudig taalgebruik zijn de voorbeeldprogramma's van 
dit boek betrekkelijk gemakkelijk te lezen en te begrijpen. De 
BASIC-code is simpel, rechttoe-rechtaan. Fraaie trucs, bijzondere 
taalconstructies en dergelijke ontbreken. De programma's zijn als 
het ware met het oog op de (menselijke) lezer, in plaats van de 
computer, tot stand gekomen. 


Goed leesbare BASIC-programma's schrijven vereist dat men van te 
voren nadenkt over een logische programmaopbouw, en dat men ook 
aan het uiterlijk van de programmatekst de nodige aandacht 
besteedt. Door deze combinatie van goede opbouw en uiterlijke ver- 
zorging verklaart het programma min of meer zichzelf. De structuur 
wordt doorzichtiger, en het ontluizen* en het aanpassen aan andere 
computersystemen gemakkelijker. 


* Onder 'ontluizen' verstaan we het verwijderen van fouten ('luizen') uit een 
programma. De term is afgeleid van het Engels-Amerikaans jargon (bug = luis, 
ongedierte; to debug = ontluizen). 


De top-to-bottom benadering 


De programmeerstijl waarmee we in dit boek werken is voor een 
belangrijk deel gebaseerd op het zogenaamde gestructureerd pro- 
grammeren, hoewel dit niet in alle opzichten streng wordt doorge- 
voerd. Er wordt vooral gewerkt met modules: kleine, logische pro- 
gramma-onderdelen, die elk een bepaalde hoofdfunctie of duidelijk 
afgebakende activiteit verzorgen. We maken ook gebruik van tech- 
nieken die al jaren als goede programmeerpraktijk zijn aanvaard, 
maar om de een of andere reden de laatste tijd veelal in onbruik zijn 
geraakt. 


De meeste suggesties die we doen hebben niet tot gevolg dat er 
geheugenruimte wordt bespaard, of dat de executietijd (Engels: 
runtime = de computertijd nodig voor het uitvoeren van het pro- 
gramma) korter wordt. Integendeel. We zijn primair geïnteresseerd 
in leesbaarheid, desnoods ten koste van zaken zoals geheugenge- 
bruikt en executietijd. Aan het einde van dit hoofdstuk zullen we 
echter wel laten zien hoe hieraan tegemoet gekomen kan worden. 


1.5 DE TOP-TO-BOTTOM BENADERING 


Bij het opbouwen van een programma gaan we uit van de hoofdacti- 
viteiten die moeten plaatsvinden. Deze zouden kunnen bestaan uit 
enkele, of wellicht alle van de volgende elementen : 

- gegevensinvoer (Engels: data entry); 

— gegevensanalyse (Engels: data analysis); 

= berekening (Engels: computation) ; 

= bestandmutatie (Engels: file update) ; 

= tekstverzorging (Engels: editing); 

= uitvoerpresentatie (Engels: report generation). 


Door het programma te verdelen in modules die elk één van deze 
activiteiten verzorgen, en de modules in volgorde uit te voeren 

— eerst module 1, dan module 2, enz. — wordt het programma gemak- 
kelijk te volgen. We noemen dit een 'top-to-bottom' (= van boven 
naar beneden) opbouw. 


Modules kunnen op hun beurt worden onderverdeeld in kleinere 
‘blokken’, die elk een deelactiviteit of berekening verzorgen. De 
omvang van zo'n programmablok binnen een module hangt af van de 
uit te voeren taak, maar is ook een kwestie van smaak. Van persoon 
tot persoon zal dit verschillen, en wellicht ook van programma tot 
programma. 


Bouw programma's modulair op en ga daarbij uit van een top-to- 
bottom benadering. 


6 Duidelijkheid, leesbaarheid en logische opbouw 


1.6 REMARK-OPDRACHTEN 


Programmamodules en -blokken kunnen voor de duidelijkheid van 
elkaar gescheiden worden door REMARK-opdrachten of lege pro- 
grammaregels. Sommige BASIC-systemen accepteren geen lege, 
genummerde regels, en verwijderen die bij het listen (= afdrukken) 
van het programma. In dat geval kan de functie van een lege regel 
worden vervuld door een regelnummer gevolgd door REMARK of 
REM, bijvoorbeeld: 


150 REM 


Soms kan worden volstaan met een regelnummer gevolgd door een 
apostrof (') of een dubbele punt als alternatief voor REMARK of 
REM. Test dit op uw eigen systeem uit, maar denk hierbij ook aan 
de overdraagbaarheid, 


voorbeelden: 


100 REM *** GEGEVENSINVOERMODULE *** 
110 REM LEES GEGEVENS VAN DATA-OPDRACHTEN 9000-9090 
120 * 


130 : 
140 REM 


10 
200 REM *** REKENMODULE *** 


Laat elk programmamodule of -blok beginnen met REMARK's waarin 
de uit te voeren activiteit wordt vermeld, en zet deze af van de 
daarop volgende programmatekst met behulp van een lege regel of 
een 'lege' REMARK (zie bijvoorbeeld regel 190 hierboven). Wees 
daarbij consequent: gebruik òf een volledig lege regel, òf REM, òf 
REMARK, òf een apostrof of dubbele punt, maar niet verschillende 
mogelijkheden door elkaar. 


Om REMARK-opdrachten die commentaar of toelichting bevatten te 
onderscheiden van andere REMARK's gebruiken sommigen het ster- 
retje (Engels: asterisk), zoals in regel 100 hierboven. Weer anderen 
slaan een aantal posities over voordat ze met het eigenlijke commen- 
taar beginnen (regel 110). 


REMARK's kunnen op dezelfde regel als andere BASIC-code worden 
geplaatst door zogenaamde multi-opdrachtregels (Engels: multiple 
statement lines) toe te passen. De REMARK moet dan wel de laatste 
opdracht op de regel zijn (waarom?). Dankzij zo'n multi-opdracht- 


GOTO-opdrachten 1 


regel kan de desbetreffende opdracht ter plaatse worden toegelicht. 
Vaak wordt daarbij enige ruimte tussen de 'echte' opdracht en de 
bijbehorende REMARK gelaten. 


voorbeeld: 
220 LET S(X) = S(X) + N: REM *** SOMMEER EENHEDEN IN ARRAY 5 


In het algemeen zijn goed leesbare programma's doorspekt met toe- 
lichtende REMARK's. Maar ook hier: overdaad schaadt. De opdracht: 


123 LET Cz A +B 


is bijvoorbeeld zo duidelijk dat we met een toelichtende REMARK een 
open deur zouden intrappen. Voegt een REMARK geen zinnige infor- 
matie toe, dan kan hij beter achterwege blijven. 


1.7 GOTO-OPDRACHTEN 


De onvoorwaardelijke GOTO (bijvoorbeeld GOTO 210) is misschien 
wel de meest aangevochten opdracht in BASIC, of in welke taal dan 
ook. Puristen zouden het gebruik daarvan onder alle omstandighe- 
den vermijden. Realistischer is het ons inziens alle GOTO's (en de 
daaraan verwante GOSUB's) naar verderop gelegen punten in het 
programma te laten verwijzen, en terugverwijzingen dus uit te slui- 
ten. Dit zou overigens volledig in overeenstemming zijn met de 
'top-to-bottom' opzet. Hetzelfde geldt in principe ook voor het 
gebruik van 'IF...THEN' opdrachten, hoewel er voor de hand lig- 
gende uitzonderingen zullen zijn. 


voorbeelden: 


140 GOTO 210 
150 IF X < Y THEN 800 
160 GOSUB 8000 


Nog een suggestie: laat een GOTO, GOSUB of IF... THEN nooit ver- 
wijzen naar een REMARK-opdracht. Komt u op een gegeven moment 
geheugenruimte tekort, dan is het namelijk niet onwaarschijnlijk dat 
u enkele REMARK's zult moeten opofferen om geheugenruimte te win- 
nen. Dit zou tot gevolg hebben dat alle betrokken GOTO's enz. 
aangepast moeten worden. Een riskante aangelegenheid! 
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voorbeeld: 
150 GOTO 300 
zo niet 
300 REM *** GEGEVENSINVOER *** 
310 LINE INPUT "NAAM: "; NS 
150 GOTO 300 
zo wel 


299 REM *** GEGEVENSINVOER *** 
300 LINE INPUT “NAAM: "; NS 


1.8 DE INLEIDENDE MODULE 


De eerste module kan uit verschillende 'rubrieken' bestaan. Zo'n 
rubriek kan bijvoorbeeld een korte omschrijving van het programma 
zijn, of kan bestaan uit een gebruiksaanwijzing, een lijst van alle 
voorkomende variabelen en hun functie, of de initialisatie* van con- 
stanten, variabelen en arrays. Regelnummers worden gekozen uit de 
serie 100 t/m 199 of 1000 t/m 1999, We gaan nu nader op deze 
rubrieken in. 


Omschrijving van het programma 


Deze rubriek begint met een REMARK die de naam van het program- 
ma aangeeft. Gebruik daarvoor bij voorkeur niet zomaar een wille- 
keurige naam, maar een naam die iets weergeeft van wat het pro- 
gramma doet. Vermeld vervolgens de naam van de auteur of pro- 
grammeur, en de datum. Daarna kunt u een REMARK opnemen ten 
behoeve van anderen die wellicht van uw programma gebruik zullen 
maken, en waarin u aangeeft voor welk computer- en/of software- 
systeem het programma werd ontworpen. Ook latere veranderingen, 
aanpassingen en dergelijke kunnen hier worden vermeld. De rubriek 
kan afgesloten worden met een korte uiteenzetting van de doelstel 
ling van het programma. 


* Initialiseren is het toekennen van een beginwaarde aan een programmagroot- 
heid, bijvoorbeeld een variabele. Verder in deze paragraaf komen we hierop 
terug. 


De inleidende module 


voorbeeld: 
100 REM *** SUBSYSTEEM LOONBEREKENING *** 


120 REM AUTEURSRECHT BLITS SOFTWARE B.V., DEN HAAG, 02/84 
130 REM HP 2000 BASIC 


150 REM AANGEPAST VOOR MSX BASIC 
160 REM DOOR PIET BITJESVRETER, 08/84 


Gebruiksaanwijzing 


In deze rubriek kunt u een toelichting opnemen over het gebruik 
van het programma, Eventueel kunt u die toelichting door het pro- 
gramma zelf laten produceren op het moment dat het gestart wordt. 
Dit kan ook nog facultatief — op verzoek van de gebruiker, oftewel 
als ‘optie! — gebeuren. De gebruiker krijgt dan de vraag voorge- 
schoteld of hij de gebruiksaanwijzing wil inzien, en kan de desbe- 
treffende tekst dan door een simpel 'ja' of 'neen' in te toetsen te 
voorschijn toveren. Is de tekst te uitgebreid, plaats dan alleen de 
vraag zelf in de inleidende module. De bijbehorende PRINT- 
opdrachten kunnen dan in een aparte module (subroutine) aan het 
einde van het programma worden opgenomen. 


Dit 'achteraan' plaatsen van de tekst kan natuurlijk ook worden toe- 
gepast als de tekst in de vorm van REMARK's in het programma 
wordt verwerkt. In beide gevallen voorkomt men dat bij een listing 
van het programma eerst ellenlange verhalen te voorschijn komen, 
wat vooral tijdens de ontwikkeling van een programma lastig kan 
zijn. 


vervolg voorgaand voorbeeld: 


180 REM DIT PROGRAMMA MAAKT EEN LOONLIJST, GEBASEERD OP 

190 REM GEGEVENS DIE DOOR DE GEBRUIKER ZELF WORDEN INGEVOERD 
200 REM 

210 LINE INPUT “HEBT U GEBRUIKSAANWIJZINGEN NODIG (J/N): “; A$ 
220 IF A$ = "J" THEN GOSUB 800 

230 REM 


Programmagrootheden 


De gebruiksaanwijzingen, althans het oproepen daarvan als het een 
subroutine betreft, kunnen gevolgd worden door REMARK-opdrach- 
ten waarin de gebruikte grootheden zoals variabelen, stringvariabe- 
len, arrays, constanten en bestanden worden opgesomd en ver- 
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klaard. Deze informatie is vooral van belang bij het later aanpassen 
van het programma, en wordt meestal ingebouwd als het eigenlijke 
programmeerwerk klaar is. Pas dan zijn alle variabelen, arrays, 
enz. definitief bekend. 


Een opmerking over het gebruik van constanten is hier op zijn 
plaats. Men kan soms de behoefte hebben bij opeenvolgende runs 

(= uitvoeringen) van een programma een constante te veranderen. 
De constante is dus slechts tijdens een programmarun werkelijk con- 
stant, In zo'n geval doet men er beter aan daarvoor een variabele te 
gebruiken. Bij de opeenvolgende runs hoeft dan slechts één (initia- 
lisatie-)opdracht veranderd te worden. 


Overigens kan het nuttig zijn — vooral ten behoeve van deze rubriek 
= tijdens het programmeren regelmatig aantekeningen te maken, 
zodat belangrijke details die u te binnen schieten, niet verloren 
gaan. Als het eigenlijke programma klaar en uitgetest is, neem het 
geheel dan nog eens door, en werk aan de hand van uw aantekenin- 
gen de REMARK's bij. 


voorbeeld: 

220 REM GEBRUIKTE VARIABELEN: 

230 REM 

240 REM BL = BRUTOLOON 

250 REM NL = NETTOLOON 

260 REM LB = LOONBELASTING 

270 REM IN = INHOUDING 

280 REM AO = PREMIE AOW 

290 REM Aw = PREMIE AW 

300 REM X,Y,Z = LUSVARIABELEN 

310 REM T(X) = ARRAY VOOR GEWERKTE UREN 

320 REM NS = ARRAY VOOR NAMEN (20) 

330 REM SNS = ARRAY VOOR SALARISNUMMERS (5) 
340 REM 

350 REM _CONSTANTEN: 

360 REM 

370 LET C1 = 0,112: REM *** PERCENTAGE AOW 
380 LET C2 = 0.015: REM *** INHOUDINGSPERCENTAGE 
390 REM 

400 REM GEBRUIKTE BESTANDEN: 

410 REM 

420 REM TBI = TABEL LOONBELASTING 

430 REM TB2 = TABEL LOONSCHALEN 

440 REM 


Merk op: 1. hoe de lengte van strings wordt aangegeven in regels 
320 en 330; 
2. het gebruik van REMARK's in de multi-opdrachtregels 
370 en 380 (multi-opdrachtregels zijn behandeld in 
8 1.6). 


Andere modules kr 


Initialisatie 


De inleidende module wordt afgesloten met een initialisatierubriek „ 
Hier worden ook de dimensies van één- en meerdimensionale arrays 
vermeld, ook als dit in MSX BASIC niet strikt noodzakelijk is. 


In MSX BASIC krijgen niet-geïnitialiseerde numerieke variabelen 
automatische de waarde nul. Maak ter wille van de duidelijkheid en 
de overdraagbaarheid ook hier geen gebruik van, en geef zulke 
variabelen expliciet de waarde nul met behulp van een LET-opdracht. 


Eventuele user-defined functies (= functies die door de program- 
meur zelf worden gedefinieerd) worden ook in het initialisatiedeel 
— dus vóór het eigenlijke gebruik — opgenomen. 

vervolg voorgaand voorbeeld: 

450 REM _ INITIALISATIES 


460 REM 

470 DIM H(7), NS$(30) 
480 S=0 

490 REM 

500 


1.9 ANDERE MODULES 


Na de inleidende module komen de andere modules, eventueel op hun 
beurt gevolgd door subroutines, DATA-opdrachten en PRINT USING 
format IMAGE-opdrachten*. Met behulp van al dan niet lege REMARK 
opdrachten worden alle modules van elkaar gescheiden en van een 
kop voorzien. De modules zelf kunnen eventueel worden opgedeeld 
in blokken, die onderling ook weer gescheiden worden door lege 
REMARK's. 


Gegevensinvoer 


In de meeste gevallen zal de tweede module bestemd zijn voor de 
invoer van gegevens. Die gegevens kunnen door de gebruiker 
rechtstreeks via het toetsenbord worden ingevoerd. Ze kunnen ook 
afkomstig zijn van DATA-opdrachten, bestanden (files) of andere 
invoermedia. In hoofdstuk 3 gaan we daar verder op in. Daarbij 


* Dat wil zeggen opdrachten die betrekking hebben op de opmaak of layout van 
de uitvoer. 
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komen ook de zogenaamde gegevensverificatie en -integriteit ter 
sprake, dat wil zeggen hoe de aangeboden invoer op geldigheid kan 
worden gecontroleerd. 


Voorlopig is het belangrijk er rekening mee te houden dat ook oner- 
varen gebruikers met uw programma kunnen werken. Programma's 
moeten zoveel mogelijk 'foolproof' zijn, oftewel 'gekbestendig'. 
Gebruik mede daarom altijd even een 'aanzetje' (Engels: prompt), 
compleet met voorbeeld, als een gebruiker iets moet intypen. 


voorbeeld: 
240 INPUT “VOER DATUM IN (DD/MM/JJ): "; DS 


DATA-opdrachten 


DATA-opdrachten kunnen het beste collectief aan het einde van het 
programma worden geplaatst. Maak daarbij gebruik van REMARK's 
om de aard van de gegevens en hun volgorde binnen de DATA- 
opdrachten vast te leggen. 


voorbeeld: 


9400 REM ARRAYGEGEVENS: JUISTE ANTWOORDEN IN VOLGORDE VAN VRAAG. 
9410 REM _WAARDEBEREIK 1-5 


9430 DATA 4,5,1,3,2,1,1,4,4,5 


9450 REM ANTWOORDEN VAN RESPONDENTEN: PER DATA-OPDRACHT EEN 
9460 REM _IDENTIFICATIENUMMER GEVOLGD DOOR 10 ANTWOORDEN, 1-5 


9470 REM 
9480 DATA 17642, 4,5, 


9490 DATA 98126, 3,5, 


DATA-opdrachten kunnen eventueel als afzonderlijke module aan het 
einde van het programma worden ondergebracht. Voorafgaande mo- 
dules verzorgen dan de berekeningen, het gegevenstransport (data 
handling), het lezen en beschrijven van bestanden en de uitvoer- 
presentatie. 
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Uitvoer 


Met uitzondering van foutmeldingen kan alle uitvoer eveneens van- 
uit één module worden verzorgd. Alle PRINT- en 'PRINT USING'- 
opdrachten zijn dan op één plaats te vinden. Eventueel kunnen ook 
verschillende 'print' modules worden gebruikt. Deze opzet heeft het 
voordeel dat latere aanpassingen, bijvoorbeeld door wijzigingen in 
formulieren, gemakkelijker uit te voeren zijn. Berekeningen — 

— behalve triviale gevallen — horen in deze module(s) niet thuis, 
maar moeten vóór de uitvoering van de printmodule(s) plaatsvinden. 
Hierdoor wordt weliswaar een zwaardere wissel getrokken op het 
gebruik van variabelen en arrays — gegevens moeten immers langer 
vastgehouden worden — maar omdat alles zijn eigen plaats heeft, 
wordt het programma doorzichtiger en gemakkelijker te 'ontluizen'. 


1.10 SUBROUTINES 


Goed ontworpen modules hebben in principe één ingang en één uit- 
gang, te weten aan het begin en aan het einde van de module. 

Ze worden in principe na elkaar uitgevoerd. Daarop is één uitzon- 
dering: de aanroep van een subroutine tijdens de uitvoering van de 
module. 


voorbeeld: 

290 : 

20 REM *** REKENMODULE *** 

310 : _ 

320 ET Te (VW *X) /Q 
330 LET T9 = T9 + T 

340 : 

350 GOSUB 800 


800 REM «++ UITVOERMODULE +++ 
0: 


Na uitvoering van de subroutine wordt teruggekeerd naar de vol- 
gende opdracht van de aanroepende module. 


Technisch bekeken zijn subroutines alleen nodig om het coderen van 
reeksen identieke opdrachten te voorkomen. Een subroutine zou dan 
ook vanuit verschillende plaatsen in het programma opgeroepen moe- 
ten worden. Subroutines hebben echter bovendien het voordeel 
— ook al worden ze maar één keer aangeroepen — dat ze de leesbaar 
heid en de doorzichtigheid van een programma ten goede komen. 
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Het gebruik van subroutines is dus wenselijk, maar moet niet over- 
dreven worden. Sommigen gaan zover, dat het hele hoofdprogramma 
uit niets anders bestaat dan GOSUB-opdrachten die reeksen ver- 
derop gelegen subroutines aanroepen. Naar onze mening is het ver- 
standiger te streven naar de gulden middenweg tussen beide extre- 
men: subroutineloze programma's enerzijds, en programma's die uit 
niets anders dan subroutines bestaan anderzijds. Als criterium kan 
worden gehanteerd dat het gebruik van een subroutine een duide- 
lijker besturingsstroom (= de uitvoeringsvolgorde van opdrachten) 
en een verbetering van de leesbaarheid tot gevolg moet hebben. De 
leesbaarheid wordt overigens ook hier gediend door het gebruik van 
REMARK's om de routine snel te kunnen herkennen, en ze van de 
rest van de programmatekst af te zetten. 


Wat de fysieke plaats van subroutines betreft zijn er twee mogelijk 
heden. Ze kunnen of direct na de aanroepende module worden 
geplaatst (behalve als er verschillende aanroepen zijn), of in een 
gemeenschappelijk deel aan het einde van het programma. 
voorbeeld: alternatief 1 

300 REM *** REKENMODULE *** 


330 °°° _gosuB 410 
340 GOSUB 460 


400 REM *** SUBROUTINE VOOR GETALCONVERSIE *** 
410 … 


äso REM *#* SUBROUTINE VOOR BEREKENINGEN **r 
460 …. 


alternatief 2 


330 GOSUB 810 
340 GOSUB 910 


00 REM *** SUBROUTINE VOOR GETALCONVERSIE «++ 
10 …. 


200 REM *** SUBROUTINE VOOR BEREKENINGEN *«* 
10 … 
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Er zijn verschillende mogelijkheden om het uiterlijk en de duidelijk- 
heid van uw programma te verbeteren. Enkele van de hieronder te 
bespreken 'kneepjes' daarvoor zijn misschien niet toe te passen op 
uw computer, Andere worden wellicht automatisch uitgevoerd. Hoe 
dan ook: probeer ze , en maak er zo mogelijk gebruik van. 


Lay-out 


Een manier om het uiterlijk van een BASIC-programma te verbete- 
ren is alle regelnummers evenlang te maken. Gebruik voor kleine 
programma's bijvoorbeeld de nummers 100 t/m 999, en voor grotere 
1000 t/m 9999. Bij het afdrukken van uw programma staat dan alles 
netjes onder elkaar. 


Uw MSX-computer heeft een commando (RENUM) om regels automa- 
tisch te 'hernummeren'. U kunt dan de regelnummers laten oplopen 
met een vaste stapgrootte van bijvoorbeeld 10. De regelmatige num- 
mering komt het uiterlijk ten goede, en op deze wijze wordt boven- 
dien de mogelijkheid opengelaten om later opdrachten tussen te 
voegen. Aangezien dit laatste de regelmaat verstoort, zou dan 
eigenlijk opnieuw genummerd moeten worden. Zonder hernummer- 
commando is dit echter nauwelijks te doen. Meestal zullen we dan 
genoegen moeten nemen met die afwijkende nummers. Hopelijk zullen 
ze tot de uitzonderingen behoren, en het totaalbeeld zal dan toch 
regelmatig zijn . 


Tot de lay-out technieken behoort ook het toevoegen van spaties in 
de programmaopdrachten zelf. Daardoor worden ze beter leesbaar. 
In MSX BASIC is dit overal toegestaan - wat u op het toetsenbord 
intypt wordt precies zo vastgelegd en weergegeven bij het afdruk- 
ken van het programma. Voor vele computers geldt dit niet. Toege- 
voegde spaties worden daarbij buiten beschouwing gelaten, en de 
computer gaat ongestoord zijn gang met een eigen, automatische 
lay-out methode. 


Enkele suggesties 


1. Gebruik spaties om het verschil tussen REMARK's en overige 
BASIC-code te laten uitkomen. 
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ES 


goed: 


100 REM *** SUBROUTINE VOOR HET TESTEN VAN GEGEVENSINVOER *** 
110 REM 

120 LET D$ = N$ 

130 LET Z = LEN(DS) 


beter: 
100 REM *** SUBROUTINE VOOR HET TESTEN VAN GEGEVENSINVOER *** 
110 REM 


120 LET DS = N$ 
130 LET Z = LEN(DS) 


Gebruik spaties voor en na rekenkundige operatoren en verge- 
lijkingsoperatoren. 


voorbeeld: 
140 LET C = (A *B) /D 


150 IF D$ — CS THEN PRINT "FOUT IN INVOER" 
160 IF C <= D THEN 700 


Gebruik een spatie vóór elk gegeven in een DAT A-lijst. 
voorbeeld: 

340 INPUT A, B, CS 

900 DATA 36, 14, “BLABLA" 

Gebruik spaties tussen BASIC-sleutelwoorden (Engels: 
keywords) en variabelen. 

voorbeeld: 

150 LET X= 4 * Y + 10 


160 INPUT “VOER RUBRIEKNAAM IN"; R$ 
170 IF R$ = "STOP" THEN 999 


FOR/NEXT lussen 


a. Spring enkele posities in bij de statements tussen FOR en 
NEXT. 


voorbeeld : 


100 FOR X = 1 TO 40 
110 LET Y=2*X 
120 PRINT X, Y 


130 NEXT X 
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b. Spring bij geneste FOR/NEXT lussen* eveneens enkele posi- 
ties in, of gebruik dubbele punten om het niveau aan te 
geven. 


voorbeeld: 


100 FOR X = 1 TO 10 
110 FOR Y = 1 TO 5 


120 LET A(X,Y) = 0 
130 NEXT Y 

140 NEXT X 

of: 


100 : FOR X = 1 TO 10 

110 :: FORY = 1 TO 5 

120 LET A(X,Y) = 0 
z: NEXT Y 


140 : NEXT X 


6. Spring enkele posities in bij geneste 'IF...THEN'-opdrachten. 
voorbeeld: 


100 IF A$ = "STOP" THEN 910 
110 IF B$ = "EINDE" THEN 920 
120 IF C = 0 THEN 930 


7. Spring ook in bij een groep opdrachten die in een bepaalde 'tak' 
van een 'IF...THEN'-constructie thuishoren. 


voorbeeld: 


140 IF A$ <= BS THEN 180 
150 LET H$ = A$ 
160 LET A$ = BS 
170 LET BS = H$ 
180 IF B$ <= C$ THEN 220 


Andere technieken om uiterlijk en leesbaarheid te verbeteren 


Er zijn ook nog andere mogelijkheden om een programma voor uzelf 
en anderen duidelijker te maken. Het gebruik van LET bijvoorbeeld 
— ook indien niet strikt nodig — kan verhelderend werken, vooral bij 
multi-opdrachtregels. Verwarrend is bijvoorbeeld: 


* Een geneste FOR/NEXT is een lus die binnen een andere FOR/NEXT-lus 
(uiteraard met een andere besturingsvariabele) is opgenomen. In 6 2.14 wordt 
hierop nader ingegaan. 
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260 X= Y: Cz X*Y: IF X= N THEN X =C 


Een betere oplossing zou zijn: 

260 LET K=Y:CeX*V: IF Xe N THEN Xe C 

of: 

260 LET X= Y: LET C = X*Y: IF X=N THEN LET X=C 


Opdrachten zo rangschikken dat ze op een natuurlijke manier van 
links naar rechts te lezen zijn, is ook een manier om de leesbaar- 
heid te verbeteren. Dit houdt bijvoorbeeld in dat een A — zo moge- 
lijk — vóór een B komt, en een 1 vóór een 2. 'IF...THEN'-opdrach- 
ten kunnen aan duidelijkheid winnen als de variabele die het minst 
verandert achteraan staat (zie regels 270 en 300) in voorbeeld b 
hieronder). 


voorbeelden : 
a. 150 READ A, B, C 


b. 260 FOR X= 1 TO 8 
270 IF M(X) <>_N THEN 290 
280 LET M(X) =_N 
290 NEXT X 
300 IF DS = "STOP" THEN 999 


Opdrachten die wat aan de lange kant zijn — vooral wiskundige uit- 
drukkingen — zijn meestal moeilijk hanteerbaar, en kunnen daarom 
beter opgesplitst worden in twee of meer delen. Een handige manier 
overigens om lange opdrachten op leesbaarheid te testen is ze 
gewoon hardop te lezen. 


verwarrend: 
250 LET T = (N * 3,75) + ((N - 40) * 3,25) «+ ((N - 60) / 3) / ((D *N) * A) 


duidelijker : 


250 LET T = (N * 3,75) + ((N - 40) * 3.25) 
255 LET T = T+ ((N - 60) /3) / ((D*N) * A) 


of: 

250 LET T1 = (N * 3.75) + ((N - 40) * 3.25) 
252 LET T2 = ((N - 60)/3) / ((D *N) * A) 
254 LET T = TÎ + T2 
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De fraaiste uitvoer wordt bereikt met behulp van de 'PRINT USING' 
opdracht, of met behulp van de speciale opmaakmogelijkheden 
(Engels: formatted output capability) die in MSX BASIC opgenomen 
zijn. Schermopmaak kan het beste plaatsvinden met de eigen grafi- 
sche mogelijkheden van MSX BASIC. 
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Philips VG 8020-toetsenbord. 


1.12 GEHEUGENGEBRUIK EN EXECUTIETIJD 


Hopelijk zal het voorgaande u overtuigd hebben van de noodzaak 
duidelijke, goed leesbare programma's te schrijven. U zult waar- 
schijnlijk niet alle behandelde foefjes onthouden, laat staan toepas- 
sen. Hoe dan ook, we hopen dat u — gevoelig gemaakt voor dit 
aspect van het programmeren — een eigen, 'zindelijke' programmeer 
stijl, gebaseerd op dit soort ideeën, ontwikkelt en dat daardoor de 
kwaliteit van uw programma's er op vooruitgaat. 


Bijna al onze suggesties hebben een belangrijk nadeel: ze kunnen 
er toe leiden dat extra geheugenruimte wordt gebruikt, Het is zelfs 
mogelijk dat uw geheugenruimte, mede hierdoor, niet toereikend is 
voor het hele programma, Er zijn dan twee mogelijkheden: of uw 
algoritme (= oplossingsmethode) herzien, of het uit de kluiten 
gewassen programma op de een of andere manier snoeien, 

Dit laatste kan inhouden dat enkele van de door u genomen maatre- 
gelen, bedoeld om de leesbaarheid te verbeteren, helaas ongedaan 
gemaakt moeten worden. Enkele mogelijkheden hiervoor zullen we 
— met een bloedend hart — op een rijtje zetten. 


Geheugenbesparende maatregelen die relatief veel zoden aan de dijk 

zetten: 

1. Gebruik verscheidene opdrachten per regel. 

2. Verwijder alle REMARK-opdrachten, te beginnen met de inleiden- 
de module. 


Geheugenruimte kan verder worden bespaard door: 

1. Namen van variabelen te beperken tot één letter. 

2. Onnodige haakjes te verwijderen. 

3. Variabelen waar mogelijk opnieuw te gebruiken (normaal gespro- 
ken een afschuwelijke gewoonte). 
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4. Spaties in opdrachten waar mogelijk te verwijderen. 
5. Zo mogelijk INTEGER-variabelen te gebruiken, bijvoorbeeld: 


FOR X% = 1 TO 10 


„ Arrays zo zuinig mogelijk te dimensioneren. 
„ GOTO in plaats van GOSUB te gebruiken bij subroutines die 
slechts vanuit één plaats in het programma worden aangeroepen, 


el 


Door de volgende maatregelen kan zonodig de executietijd met enke- 

le microseconden of zelfs seconden worden verkort. Enkele hiervan 

komen overeen met de reeds besproken maatregelen voor het bespa- 

ren van geheugenruimte. 

1. Verwijder alle REMARK-opdrachten, of laat de inleidende module 

naar het einde van het programma verhuizen. 

2. Gebruik liever variabelen dan constanten (zoals eerder aanbevo- 
len). 

… Gebruik multi-opdrachtregels. 

« Definieer de meest gebruikte variabelen het eerst. 

„ Gebruik bij voorkeur INTEGER-variabelen. 

„ Zet subroutines vóór het hoofdprogramma. 

… Gebruik FOR/NEXT-lussen indien enigszins mogelijk . 

„ Verwijder onnodige haakjes. 

9, Beperk het gebruik van GOSUB's. 


Inne 


Houd er echter rekening mee dat, hoewel ze uw programma welis- 
waar kunnen versnellen, deze maatregelen over het algemeen als 
slechte programmeerstijl aan te merken zijn, en indruisen tegen 
bijna alles wat we in dit hoofdstuk te berde hebben gebracht. 


Om ruimte te besparen en de aandacht minder af te leiden, hebben 
we in dit boek overigens ook zelf niet altijd onze eigen suggesties 
opgevolgd. Niettemin zijn de programma's ons inziens goed leesbaar 
en redelijk zelfverklarend gebleven. 
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1.13 TOETSVRAGEN 


10, 


Werkt een goedlopend MSX BASIC-programma zonder meer op 
andere systemen die ook BASIC kennen? 
Waarom wel/niet? 


Hoe krijgt u de grootste zekerheid dat een door u geschreven 
programma ook op een andere computer zal functioneren? 


Wat wordt bedoeld met het begrip 'overdraagbaarheid' (Engels: 
portability) van computerprogramma's? 


Noem minstens drie rubrieken die thuis horen in de met behulp 
van REMARK's opgebouwde inleidende module. 


Beschrijf de 'top-to-bottom' methode voor het opbouwen van 
programma's. 


Naar welke opdrachten kan beter niet verwezen worden bij het 
gebruik van sprongopdrachten zoals GOTO en GOSUB? 
Waarom? 

Wat wordt bedoeld met 'initialiseren'? 


Wat is de belangrijkste (technische) reden voor het coderen van 
een deel van een programma als een subroutine? 


Welk(e) offer(s) moet(en) gebracht worden om zelfverklarende, 
goed leesbare programma's te schrijven? 


Hoeveel opdrachten van een multi-regelopdracht worden uitge- 
voerd als de eerste opdracht een REMARK is. 


22 Duidelijkheid, leesbaarheid en logische opbouw 
1.14 ANTWOORDEN OP DE TOETSVRAGEN 


1. 


10. 


Als de betrokken computers geen MSX-computers zijn kan het 
voorkomen dat het programma niet zal functioneren. 


Door ‘conservatief te programmeren, dat wil zeggen geen gebruik 
te maken van de 'features' van MSX BASIC. 


De mate waarin een programma zonder of met minimale verande- 
ringen geschikt is voor verwerking door verschillende compu- 
ters. 


Drie van de volgende mogelijkheden: gebruikte variabelen en 
hun betekenis of functie; gebruikte bestanden; programmanaam; 
beschrijving van het doel van het programma; auteur; datum 
van totstandkoming of revisie; voor welke BASIC-versie en/of 
computersysteem werd het programma ontwikkeld. 


Het programma wordt voor zover mogelijk zo ingericht, dat uit- 
voering bij de opdracht met het laagste regelnummer begint, en 
in volgorde van regelnummer wordt voortgezet met zo weinig 
mogelijk vertakkingen onderweg. 


REMARK-opdrachten, omdat deze bij gebrek aan geheugenruim- 
te door de programmeur verwijderd kunnen worden. 


Het voor de eerste keer in een programma toekennen van waar- 
den (veelal nullen of spaties) aan variabelen of array-elementen, 
en het dimensioneren van arrays. 


Door opdrachten in de vorm van een subroutine te gieten wordt 
voorkomen dat die opdrachten opnieuw moeten worden geco- 
deerd als ze op een andere plaats in het programma nodig zijn. 


Meer geheugengebruik en eventueel langere executietijd. 
Geen. De computer beschouwt de tweede en eventueel volgende 


opdrachten op de regel als onderdeel van de REMARK-opdracht, 
dus als commentaar. 


2 OVERZICHT VAN DE BELANGRIJKSTE 
TAALELEMENTEN 


2.0 DOELSTELLINGEN 


De bedoeling van dit hoofdstuk is een overzicht te geven van de 
belangrijkste taalelementen van MSX BASIC. Na bestudering ervan 
moet u in staat zijn de volgende MSX BASIC-elementen te gebruiken: 
- LET 

— READ en DATA 

— INPUT en LINE INPUT 

= IF. ..THEN 

- FOR/NEXT 

= GOSUB en RETURN 

= ON... GOTO 

-= LEN, ASC en INSTR 

- MID$, LEFTS$ en RIGHT$ 


2.1 INLEIDING 


Zoals eerder gezegd gaan we er in dit boek van uit dat u al eerder 
programma's in BASIC hebt geschreven, en dat u een BASIC- 
programma redelijk kunt lezen en begrijpen. In dit hoofdstuk krijgt 
u de gelegenheid uw geheugen op te frissen. Naast een behandeling 
van de taalelementen zelf komen ook enkele basistechnieken ter 
sprake waarbij die taalelementen worden toegepast. Vele daarvan 
zult u nodig hebben bij het werken met bestanden, Door daar nu 
aandacht aan te besteden kunnen we ons straks concentreren op 
het 'echte' (bestands-)werk. 
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2.2 NAMEN VAN VARIABELEN 


In de eerste versies van BASIC mocht de naam van een variabele 
maar uit één letter bestaan, of een letter gevolgd door een cijfer. 
Voor zogenaamde stringvariabelen moest bovendien als laatste teken 
een dollarteken worden toegevoegd. A, Al, Z7, ZO, B$ en B1$ 
waren dus correcte variabelenamen. AA, A25, SALARIS en NAAMS, 
bijvoorbeeld, waren dat niet. BASIC-80 en andere nieuwe BASIC- 
dialecten staan echter het gebruik toe van namen die uit meer dan 
één letter bestaan. De laatstegenoemde namen zijn daarbij wel gel- 
dig. Zo ook namen als SUBTOTAAL, NETTOLOON, KEUZE, 
STRAATS enz. De verleiding om lange variabelenamen te gebruiken 
kan groot zijn, maar pas op! MSX BASIC gebruikt namelijk alleen de 
eerste twee letters van een naam; eventueel volgende letters worden 
eenvoudig buiten beschouwing gelaten. SALARIS en SALADE zijn 
dus in feite een en dezelfde variabele. Voorzichtigheid is dus gebo- 
den bij het kiezen van namen voor variabelen. Er kunnen fouten 
optreden die moeilijk te achterhalen zijn. Bovendien is voor langere 
namen meer geheugenruimte nodig, wat bij grotere of complexere 
programma's wel eens problemen kan opleveren. 


Een andere beperking bij het gebruik van langere namen is dat 
lettercombinaties, die ook in BASIC-opdrachten, commando's of 
functies kunnen voorkomen, verboden zijn. De 'Reserved Word List' 
(= lijst van gereserveerde woorden) in uw gebruikershandleiding 
geeft aan welke woorden geen deel mogen uitmaken van een lange 
variabelenaam. Voorbeelden zijn: 


FOR, DATA, OPEN, CLOSE, PRINT, KILL, IF, THEN 


Veel narigheid kan dus worden voorkomen door eenvoudige namen 
te kiezen, bijvoorbeeld A, Tl en Y$. Daardoor is het wel moeilijker 
om echt 'suggestieve' namen te bedenken, dat wil zeggen namen die 
iets weergeven van de functie van een variabele en daardoor bij- 
dragen aan de duidelijkheid van het programma. Met een beetje fan- 
tasie lukt dit echter aardig, bijvoorbeeld T voor totaal, ET voor 
eindtotaal, S voor salaris. 


Sommige tekens geven gemakkelijk aanleiding tot misverstanden, en 
moeten daarom met beleid worden gebruikt. De letter O, bijvoorbeeld, 
kan aangezien worden voor het cijfer 0; één van beide (bijna altijd 
het cijfer, maar soms ook de letter) wordt daarom meestal doorge- 
streept (@), maar dit kan op zijn beurt weer worden verward met de 
letter Q. Ook de letter 1 en het cijfer 1 geven vaak problemen. 
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Sommige programmeurs kiezen voor bepaalde functies steevast 
dezelfde variabelen in alle programma's die ze schrijven. X, Y en Z 
worden dan bijvoorbeeld gebruikt als besturingsvariabelen in FOR / 
NEXT-lussen. T (teller) of 1 (uit de wiskunde) worden veel 
gebruikt in telconstructies zoals LET 1 = 1 + 1. In dit laatste voor- 
beeld valt de mogelijke verwarring tussen letter en cijfer overigens 
mee, juist wegens het bewuste gebruik. 


Variabelenamen — ook wel labels genoemd — duiden eigenlijk geheu- 
genplaatsen aan waar gegevens worden opgeslagen. De gegevens 
kunnen numeriek zijn (een getal), of alfanumeriek (een stuk tekst, 
ook wel 'string' genoemd); deze laatste categorie wordt in de vol- 
gende paragraaf uitvoeriger behandeld. Beide soorten waarden 
worden in de desbetreffende geheugenplaatsen opgeslagen met 
behulp van toekenningsopdrachten (LET, READ, INPUT). Bij ver- 
dere verwijzingen naar die variabelen gebruikt de computer de toe- 
gekende waarde. De genoemde toekenningsopdrachten worden in dit 
hoofdstuk behandeld. 


Toetsvraag 


(a) Geef twee redenen om eenvoudige variabelenamen, zoals A, X3 
en Y$, te gebruiken. 
(a) Twee van de volgende mogelijkheden: 
1. Bespaart geheugenruimte. 
2. Voorkomt het gebruik van gereserveerde woorden, met name 
als onderdeel van een langere naam. 
3, Geen overdraagbaarheidsprobleem bij het gebruik van ver- 
schillende BASIC-versies. 


2.3 STRINGVARIABELEN 


Stringvariabelen zijn herkenbaar aan het dollarteken aan het einde 
van hun naam. AS is dus een stringvariabele, A een numerieke 
variabele. Een string (= tekenreeks) bestaat uit één of meer letters, 
cijfers of bijzondere tekens. Omdat deze tekenverzameling (voorna- 
melijk) uit alfabetische en numerieke tekens bestaat, spreekt men 
bij een string van een alfanumeriek gegeven (alfabetisch - nume- 
riek). Strings zijn in wezen constanten, en ze kunnen in een 
BASIC-programma op dezelfde manier worden gebruikt als getallen, 
oftewel numerieke constanten. Om de string 'BLABLA' in het com- 
putergeheugen op te slaan kunnen we bijvoorbeeld gebruik maken 
van de toekenningsopdracht: 


LET A$ = "BLABLA" 
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De stringvariabele AS functioneert daarbij als een etiket om de 
geheugenplaats aan te geven waar de tekst "BLABLA" wordt opge- 
slagen. Een daaropvolgende verwijzing naar AS$ impliceert het 
gebruik van de bijbehorende string, die als waarde van A$ kan 
worden beschouwd. 


Het essentiële verschil tussen stringvariabelen en numerieke varia- 
belen is dat stringvariabelen — ook al bevatten ze numerieke gege- 
vens — niet in rekenkundige uitdrukkingen of bewerkingen kunnen 
worden gebruikt. 


Bij de opdrachten: 

100 LET AS = "8,99" 

110 LET B$ = A$ + 0,5 

wordt men door de computer dus onverbiddelijk op de vingers 
getikt met de melding SYNTAX ERROR, in plaats van de wellicht 
verwachte toekenning van de waarde 9.04 aan B$, In het laatste 
geval zou men moeten coderen: 

100 LET A = 8.99 

110 LET Be=A+0.5 

De geheugenruimte die een string inneemt kan worden voorgesteld 
door een vakje aangegeven door de naam van de variabele, De toe- 
kenningsopdracht: 


LET NS = "AUTOMOBIELBEDRIJF VAN DER PANNE B.V.” 


heeft dan als het ware de inrichting van het volgende vakje in het 
geheugen van de computer tot gevolg: 


[_ns [ AuToMoBIELBEDRIJF VAN DER PANNE B.V. 


naam van Mk van 
de variabele de variabele 


In feite wordt echter alleen voor de waarde van de variabele geheu- 
genruimte gebruikt, althans in de voor gegevens beschikbare ruim- 
te. De koppeling tussen het etiket dat we als programmeur gebrui- 
ken (N$) en de eigenlijke plaats waar de bijbehorende waarde zich 
bevindt wordt door de computer elders bijgehouden. 


Merk op dat de toegekende string omgeven is door aanhalingstekens. 
Deze dienen om de string af te bakenen, maar maken van die string 
zelf geen deel uit. Stringvariabelen kunnen maximaal 255 tekens 
bevatten. Ze kunnen echter ook leeg zijn, dat wil zeggen helemaal 
geen tekens bevatten. We spreken dan van een nulstring (Engels: 
null string). Een toekenningsopdracht voor zo'n nulstring zou zijn: 
LET Z$ = "", 
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Er is een belangrijk verschil tussen de maximale lengte van een 
string (dus 255 tekens) en de eigenlijke lengte. De eigenlijke leng- 
te is het aantal alfanumerieke tekens dat op een gegeven moment 
aan een stringvariabele is toegekend, en dus ook daadwerkelijk in 
de bijbehorende geheugenplaats is opgeslagen. Spaties worden 
daarbij als alfanumerieke tekens gerekend. De omvattende aanha- 
lingstekens, gebruikt bij de toekenning, doen niet mee. 


voorbeelden : 


[_vs [ AuromoBtELBEDRIJF VAN DER PANNE B.V. 


eigenlijke lengte: 36 tekens 


[as [ FORTLAAN 13-17 


eigenlijke lengte: 14 tekens 
(inclusief spatie en koppelteken) 


Het is een goede gewoonte in een programma aan te geven hoe lang 
een bepaalde stringvariabele in de context van dat programma maxi- 
maal kan worden. Dit kan men met behulp van REMARK's in de 
inleidende module doen, bijvoorbeeld op de volgende manier: 


140 REM _ STRINGVARIABELEN 
150 REM __- NS _: NAAM VAN KLANT (20) 
160 REM - AS : ADRES VAN KLANT (25) 
170 REM - WS _: POSTCODE (7) EN WOONPLAATS (23) 
180 zen MAXIMAAL 30, INCL. SPATIES 
ul 


Toetsvragen 


1. Hoeveel tekens bevat een nulstring die aan een stringvariabele 
wordt toegekend? 

2. Hoeveel tekens neemt een spatie, die deel uitmaakt van een 
string, in beslag? 


Antwoorden: 1. nul (geen); 2. één. 


In tegenstelling tot de straks te bespreken READ- en INPUT- 
opdrachten wordt de LET ook wel een directe toekenningsopdracht 
genoemd. MSX BASIC accepteert de opdracht ook zonder het sleu- 
telwoord LET. De opdrachten: 


240 LET N$ = "BLABLA" en: 240 NS = "BLABLA" 


zijn dus identiek. Ter wille van de duidelijkheid gebruiken we in dit 
boek in het algemeen de LET -vorm. 
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2.4 READ/DATA-TOEKENNINGSOPDRACHT 


DATA-opdrachten lijken 'in de verte! op gegevensbestanden. Ze 
bevatten namelijk gegevens die tijdens de uitvoering van het pro- 
gramma aan variabelen worden toegekend. Bij de DATA-opdracht 
zijn de desbetreffende gegevens echter alleen te gebruiken in het 
programma waarin die DATA-opdracht is opgenomen. Gegevensbe- 
standen leiden een zelfstandiger bestaan. De gegevens worden 
daarbij los van het programma opgebouwd, en kunnen dus door ver- 
schillende programma's worden gebruikt. 


Bij iedere DATA-opdracht horen één of meer READ-opdrachten. De 
READ-opdracht functioneert daarbij als een toekenningsopdracht: 
één of meer gegevens van de DATA-opdracht worden toegekend 
aan één of meer variabelen genoemd in de READ, 


voorbeeld: 


10 READ A 
20 DATA 15, 76.5, 1892, -999 


De opdracht READ A heeft tot gevolg dat één van de getallen in de 
DATA-opdracht aan de variabele A wordt toegekend. Welk getal dat 
is hangt af van het feit of deze (of een andere) READ-opdracht al 
eerder is uitgevoerd. Is regel 10 de eerste READ-opdracht die 
wordt uitgevoerd, dan krijgt A de waarde 15. Hadden we in plaats 
van READ A de opdracht READ A, B gecodeerd, dan zou aan A de 
waarde 15 en aan B de waarde 76.5 zijn toegekend. Hetzelfde zou- 
den we bereikt hebben als we na READ A de opdracht READ B had- 
den laten uitvoeren, bijvoorbeeld als regel 15. 


READ/DATA-opdrachten kunnen ook worden gebruikt voor het toe- 
kennen van strings aan stringvariabelen. 


voorbeeld: 
220 READ AS, BS, CS 


810 DATA ROOD, WIT, BLAUW 


Omvattende aanhalingstekens bij de string in de DATA-opdracht 
zijn in MSX BASIC niet nodig, tenzij de string een komma, punt- 
komma of één of meer voorafgaande spaties bevat. In deze gevallen 
wordt de string geheel tussen aanhalingstekens opgenomen, zoals 
bij de directe LET-toekenning. Eventueel navolgende spaties tussen 
een string en een daaropvolgende komma worden gerekend als deel 
van de string, en aan de overeenkomstige stringvariabele toege- 
kend. De eigenlijke lengte van de stringvariabele wordt dan mede 
door die spatie(s) bepaald. 
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Oppassen geblazen dus bij het gebruik van komma's als scheidings- 
teken tussen de gegevens in een DATA-opdracht! 


voorbeeld: 


In het onderstaande programmadeel zijn aanhalingstekens nodig, 
omdat de komma's deel uitmaken van de strings zelf. 


220 READ NS 


310 DATA “BROWN, JERALD R.”‚ “FINKEL, LEROY P.” 

Probeer de volgende constructie op uw MSX-computer, en let op de 
manier waarop navolgende spaties worden verwerkt: 

220 READ NS, AS 

230 PRINT NS; AS 


910 DATA TESTbbb,bDDGEGEVENS 
RUN 


NB: b = blanko positie, oftewel spatie 


Als het goed is levert dit als antwoord: 
TESTDbDGEGEVENS 


Slechts drie spaties tussen TEST en GEGEVENS dus, omdat vooraf 
gaande spaties niet meedoen en navolgende spaties wel, Vervang 
regel 910 nu als volgt en draai het programma opnieuw: 


910 DATA “TESTbbb", "bDDGEGEVENS" 
(a) Hoeveel spaties verschijnen nu tussen beide strings? 


(a) zes 


Koppeling tussen gegeven en variabele 


De computer kent een intern wijzermechanisme — in feite een geheu- 
genlokatie waarvan de inhoud het adres van een andere geheugen- 
lokatie aangeeft — dat tijdens elke programma'run' bijhoudt welke 
elementen van een DATA-opdracht aan een variabele zijn toegekend. 
Bij het uitvoeren van READ-opdrachten wordt de wijzer (Engels: 
pointer) bij iedere toekenning zo aangepast dat hij naar het volgen- 
de gegeven in de DATA-opdracht verwijst. Geeft de wijzer een 
string aan terwijl er volgens de READ-opdracht een numerieke 
waarde nodig is, dan treedt er een foutconditie op en de uitvoering 
van het programma wordt gestaakt. 


voorbeeld: 


210 READ A 
910 DATA BLABLA 
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In dit geval treedt een foutconditie op omdat de READ-opdracht als 
het ware op zoek is naar een numeriek gegeven om aan A — een 
numerieke variabele — toe te kennen, terwijl de wijzer een alfanume- 
rieke waarde aangeeft. 


Toetsvraag 
Bekijk het volgende programma: 
210 READ As, BS 


220 PRINT As; BS 
910 DATA 17926, BLABLA 


(a) Draait het programma zonder foutmeldingen? 

(b) Wat wordt toegekend aan A$ en waarom? 

(a) Ja. 

(b) 17926 (een getal kan als string aan een stringvariabele worden 
toegekend, maar niet omgekeerd). 


2.5 DE INPUT-OPDRACHT 


Numerieke of alfanumerieke gegevens kunnen aan een numerieke 
respectievelijk stringvariabele worden toegekend door middel van 
een INPUT-opdracht. Een daaraan verwante toekenningsopdracht 
— de 'LINE INPUT '-opdracht — accepteert slechts één gegeven (en 
wel alfanumeriek) dat toegekend wordt aan een stringvariabele. De 
LINE INPUT komt in de volgende paragraaf aan de orde. 


Bij het gebruik van INPUT-opdrachten is het van belang dat dege- 
ne achter de computer precies weet hoe hij zijn gegevens moet 
invoeren. Mocht uw programma alleen voor eigen gebruik bestemd 
zijn, vergis u dan niet. Het zal u verbazen hoe snel u zich achter 
de oren krabt met de vraag: "Hoe zat dat ook weer?", Om de invoer 
probleemloos te laten verlopen moet u eerst zelf precies weten hoe 
de INPUT-opdracht in uw BASIC-versie werkt. 


Veel ellende kan worden voorkomen door altijd een zogenaamde 
promptstring aan de invoer te laten voorafgaan. Een prompt is een 
‘aanzet' of boodschap die op het scherm verschijnt, met de bedoe- 
ling de computergebruiker aan te geven dat er van hem een bepaal 
de actie wordt verlangd. 


voorbeeld: 
160 INPUT "GEEF UW NAAM OP, EERST VOORNAAM DAN ACHTERNAAM"; NS 
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Een INPUT-opdracht zonder promptstring heeft tot gevolg dat de 

computer met een vraagteken reageert, en vervolgens een respons 
van het toetsenbord afwacht. Niets is frustrerender voor een com- 
putergebruiker dan zo'n INPUT-vraagteken zonder enige aandui- 

ding van wat nu eigenlijk wordt verwacht. Neem daarom altijd een 

promptstring in een INPUT -opdracht op. Gebruik zonodig PRINT- 
opdrachten, voorafgaande aan de INPUT-opdracht, om de gebrui- 

ker uit te leggen hoe hij zijn gegevens moet invoeren. 


Een andere bron van frustratie is de rare manier waarop de compu- 
ter op verkeerde gegevens kan reageren. Een voorbeeld: 


360 INPUT "GEEF ARTIKELNUMMER EN HOEVEELHEID OP“; N, H 


RUN 
GEEF ARTIKELNUMMER EN HOEVEELHEID OP?137 
n 


De gebruiker typte na het verschijnen van de prompt-boodschap en 
het vraagteken het getal 137, en drukte vervolgens op de RETURN- 
toets. De computer reageerde met twee vraagtekens om aan te geven 
dat hij meer gegevens verwachtte. Begrijpelijk — althans voor een 
geroutineerde computergebruiker - want slechts één gegeven werd 
ingevoerd terwijl de INPUT -opdracht twee variabelen bevatte. Voor 
een onervaren computergebruiker zou dit echter minder duidelijk 
zijn. De bedoeling was dat u beide gegevens, gescheiden door een 
komma, in één keer invoerde. Dus: 


RUN 
GEEF ARTIKELNUMMER EN HOEVEELHEID OP?137,12 
Ok 


Laten we hetzelfde programma nog eens uitvoeren met drie gegevens: 


RUN 
GEEF ARTIKELNUMMER EN HOEVEELHEID OP?137,„12,164 
?EXTRA IGNORED 


De uitvoering van het programma wordt voortgezet, terwijl het getal 
164 wordt genegeerd. 


Fouteondities en invoerproblemen kunnen ook bij string-gegevens 
voorkomen. Neem bijvoorbeeld het volgende programmafragment: 
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180 INPUT “GEEF NUMMER EN NAAM VAN KLANT OP“; K‚ NS 
190 PRINT K‚ NS 


RUN 

GEEF NUMMER EN NAAM VAN KLANT 0P?13726 
2 

13726 


In dit geval typte de gebruiker het klantnummer en drukte vervol- 
gens op RETURN. Het nummer werd netjes toegekend aan variabele 
K. Bij het verschijnen van de twee vraagtekens - om aan te geven 
dat de computer nog een gegeven verwachtte - drukte de gebruiker 
de RETURN-toets opnieuw in, zonder eerst iets ingetypt te hebben. 
De computer accepteerde daarop een lege string als invoer, en kende 
die toe aan N$. 


MSX BASIC geeft de melding "? REDO FROM START" indien een 
verkeerd gegevenstype wordt ingevoerd, bijvoorbeeld een string in 
plaats van een getal bij toekenning aan een numerieke variabele, 


Bovendien resulteert het indrukken van de RETURN-toets zonder 
voorafgaande gegevens in het toekennen van een nul aan numerieke 
variabelen en een lege string aan stringvariabelen. 


Voorkomen van incorrecte invoer 


Twee programmeertechnieken kunnen fouten op het gebied van ver- 
keerde invoer bij INPUT -opdrachten helpen voorkomen. De eerste 
daarvan is, per INPUT-opdracht slechts één gegeven op te vragen. 
Dit maakt gegevensinvoer zeer eenvoudig en bovendien gemakkelijk 
te controleren, zoals we in het volgende hoofdstuk zullen zien. 


voorbeeld: 


RUN 

GEEF NUMMER VAN KLANT OP?137 
GEEF NAAM VAN KLANT OP?ABC B.V. 
GEEF ARTIKELNUMMER OP? 18625 
GEEF BESTELDE HOEVEELHEID OP?106 


De tweede techniek bestaat uit het toekennen van alle invoergege- 
vens — zowel numeriek als string — aan stringvariabelen. Dit voor- 
komt problemen bij het toekennen van alfanumerieke gegevens aan 
numerieke variabelen. Getallen die aan stringvariabelen zijn toege- 
kend kunnen van string naar numerieke vorm worden geconver- 
teerd met behulp van de VAL-functie. Als bijvoorbeeld H$ = 106 
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(dus niet het getal 106 maar de cijferreeks 1, 0, 6), dan conver- 
teert VAL(HS$) de cijferreeks naar een getal dat aan een numerieke 
variabele kan worden toegekend en/of rechtstreeks als een nume- 
rieke waarde in een BASIC-expressie kan worden gebruikt. VAL 
wordt in het volgende hoofdstuk uitgebreid behandeld. In het vol- 
gende hoofdstuk komt bovendien aan de orde hoe men op lege 
strings (dat wil zeggen: geen invoer) kan testen en de computerge- 
bruiker met behulp van meldingen kan aangeven hoe hij zijn gege- 
vens op de juiste wijze kan invoeren. 


Toetsvraag 
(a) Schrijf een INPUT-opdracht die in de volgende RUN resulteert: 


RUN 
GEEF UW HUISADRES OP? 
(a) 100 INPUT "GEEF UW HUISADRES OP“; As 
Chet regelnummer en de naam van de variabele kunnen anders 
zijn). 


2.6 DE LINE INPUT'-OPDRACHT 


MSX BASIC kent (evenals de meeste BASIC-versies) naast de INPUT - 
opdracht een andere invoermogelijkheid: de LINE INPUT, Deze 
opdracht - op sommige computers ook wel LINPUT of INPUTLINE 
genoemd — geeft de mogelijkheid op gemakkelijke wijze gebruik te 
maken van gegevens waarin komma's, aanhalingstekens en vooraf- 
gaande spaties (Engels: leading blanks) zijn opgenomen. Daarbij 
kan per opdrachtsuitvoering slechts één gegeven worden ingelezen. 
Het gegeven wordt alfanumeriek opgevat. De variabele die in de 
!LINE INPUT '-opdracht wordt genoemd moet dan ook van het alfa- 
numerieke type zijn. Omdat slechts één gegeven kan worden ingele- 
zen, mag de opdracht slechts één variabele bevatten, Dit ligt ook 
aardig in de lijn van het advies dat we in de vorige paragraaf heb- 
ben gegeven over het gebruik van slechts één variabele in een 
INPUT -opdracht. 


Zoals bij de INPUT is ook bij de LINE INPUT een promptstring toe- 
gestaan. Bij programma-uitvoering verschijnt echter, in tegenstel 
ling tot bij de INPUT, geen vraagteken. Zo'n vraagteken (of bij- 
voorbeeld een dubbele punt) moet, indien gewenst, expliciet als 
deel van de promptstring worden opgenomen. Bevat de LINE INPUT 
geen prompt dan geeft de computer geen enkele indicatie dat hij 
invoer vanaf het toetsenbord verwacht. 
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voorbeeld: 
160 LINE INPUT “GEEF UW ADRES OP: "; AS 


RUN 
GEEF UW ADRES OP: $ 
eursor 


Omdat LINE INPUT komma's, aanhalingstekens en voorafgaande spa- 
ties zonder meer accepteert, is hij bijzonder geschikt voor het 
invoeren van regels tekst. Vandaar ook de naam ("LINE INPUT" 
betekent regelinvoer). De computer herkent het einde van de tekst 
regel door het indrukken van de RETURN-toets. Per regel kunnen 
maximaal 255 tekens (de maximale capaciteit van een stringvariabele) 
worden ingevoerd. In dit boek zal de LINE INPUT regelmatig worden 
gebruikt. 


Toetsvraag 


(a) Geef drie redenen om liever de 'LINE INPUT'- in plaats van de 

'INPUT '-opdracht te gebruiken. 

(a) 1. Met de LINE INPUT kunnen op gemakkelijke wijze (alleen) 
stringtoekenningen worden gemaakt. 

2. LINE INPUT dwingt de programmeur zich bij invoer te beper- 
ken tot één gegeven per opdracht, waardoor de foutkans bij 
het invoeren van gegevens wordt verkleind. 

3. Bij LINE INPUT verschijnt geen vraagteken op het scherm. 


2.7 HET AANEENSCHAKELEN VAN STRINGS 
(CONCATENEREN) 


Strings kunnen in BASIC aaneengeschakeld worden tot grotere 
strings. Dit heet concateneren. Strings worden geconcateneerd 
door ze als het ware bij elkaar op te tellen door middel van een 
plusteken. In dit verband functioneert het plusteken dus niet als 
rekenkundige operator maar als concatenatie-operator. 


voorbeeld: 
110 LET NS = VS + A$ 


In dit voorbeeld worden de strings die eerder aan V$ en A$ waren 
toegekend aaneengeschakeld tot één geheel, dat op zijn beurt wordt 
toegekend aan NS. Gelijksoortige bewerkingen zijn uiteraard moge- 
lijk tussen stringconstanten onderling of tussen stringconstanten en 
=variabelen 
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voorbeelden : 
120 LET RS = “KLANT: * «NS 
150 LET NS = VS + " " + AS 


Toetsvragen 


Welke uitvoer wordt ten gevolge van onderstaande opdrachten 
geproduceerd? 
(a) 10 LET vs = "PIET" 

20 LET AS = "HEIN" 

30 LET NS = VS +" " + AS 

40 PRINT NS 


RUN 

(b) 10 LET VS = "8990" 
20 LET AS = "3806" 
30 LET NS = VS + A$ 
40 PRINT NS 


RUN 


(a) PIET HEIN 
(b) 89903806 
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De 'IF...THEN' is een belangrijke opdracht. Hij heeft de volgende 
algemene vorm: 


IF voorwaarde THEN opdracht 


Onder ‘voorwaarde! verstaan we een vergelijking tussen twee groot- 
heden waarbij de uitkomst van de vergelijking waar of onwaar is. 
Zo'n vergelijking is bijvoorbeeld X < Y. Is de waarde van X inder- 
daad kleiner dan Y, dan is de vergelijking waar. Anders is hij 
onwaar. 


Is het voorwaardedeel van de IF...THEN waar, dan wordt het 
opdrachtdeel uitgevoerd. Is het voorwaardedeel onwaar, dan heeft 
de IF...THEN in feite geen enkel effect. Er wordt dan eenvoudig 
verdergegaan met de daaropvolgende opdracht. 


voorbeeld: 


140 IF X < Y THEN GOTO 800 


effect: Als X kleiner is dan Y, dan wordt gesprongen naar regel 
800. Is X groter dan of gelijk aan Y, dan wordt de eerstvol- 
gende opdracht na regel 140 uitgevoerd. 
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noot: Het woord GOTO in bovenstaande opdracht mag worden weg- 
gelaten. 


Vergelijkingsoperatoren 


De eenvoudigste vorm van het voorwaardedeel van de IF... THEN 
hebben we hierboven al gezien. Het bestond uit twee rekenkundige 
grootheden (X en Y) gescheiden door een ‘kleiner dan' teken (<). 
Zo'n ‘kleiner dan' teken is een zogenaamde vergelijkingsoperator, 
ook wel relationele operator genoemd. Er zijn meer van zulke opera- 
toren. BASIC kent het volgende arsenaal: 


< kleiner dan 

<= kleiner dan of gelijk aan (ook wel: =<) 
= gelijk aan 

>= groter dan of gelijk aan (ook wel: =>) 
> groter dan 

<> ongelijk aan (ook wel: ><) 


Verderop in deze paragraaf zullen we zien hoe dankzij een ander 
type operator meer ingewikkelde voorwaarden geformuleerd kunnen 
worden. 


Het opdrachtdeel 


Wat het opdrachtdeel van de IF...THEN betreft zijn er in MSX 
BASIC verscheidene mogelijkheden: 


= IF ……… THEN LET …… waarbij de normale regels voor LET- 
opdrachten van toepassing zijn (het 
woord LET kan dus eventueel wor- 
den weggelaten) 


= IF .… THEN GOSUB …. voorwaardelijke sprong naar subrou- 
tine 
= IF .……. THEN RETURN voorwaardelijke terugkeer uit sub- 
routine 
= IF .…… THEN PRINT voorwaardelijke uitvoer 
= IF ‚… THEN INPUT …. voorwaardelijke invoer (niet aan te 
IF .. THEN READ …. bevelen omdat ze verwarring en com- 


plicaties bij het ontluizen in de hand 
werken) 


= IF .… THEN STOP voorwaardelijke beëindiging van het 
IF …. THEN END programma 
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- IF .… THEN IF .. THEN .……. voorwaardelijke opdracht die 
wordt uitgevoerd indien aan een 
andere voorwaarde is voldaan 

SE oew DEN, SOLO gen voorwaardelijk r dracht 

IF … THEN regelnummer ye: sprongopcrac 

Niet alle BASIC-versies kennen deze mogelijkheden. Sommige ken- 

nen uitsluitend de (oorspronkelijke) eenvoudige vorm: 


IF voorwaarde THEN regelnummer 


eventueel met het sleutelwoord GOTO voor 'regelnummer'. Deze 
vorm is in wezen een voorwaardelijke sprongopdracht. 


Samengestelde voorwaarden 


Behalve enkelvoudige voorwaarden waarbij twee rekenkundige 
grootheden worden vergeleken, kunnen in een IF...THEN ook meer 
voorwaarden worden ingebouwd. We spreken dan van een samenge- 
stelde voorwaarde. Hierbij wordt gebruik gemaakt van zogenaamde 
logische operatoren: de AND en de OR. De IF...THEN ziet er dan 
als volgt uit: 


F …… AND .… THEN … 
of: 

IF ………. OR …. THEN 
Kenmerkend voor logische operatoren is dat ze twee grootheden 
verbinden die de waarden 'waar' of '‘onwaar' vertegenwoordigen. Dit 
in tegenstelling tot de eerder besproken vergelijkingsoperatoren, 
die grootheden met een numerieke waarde verbinden. De AND is zo 
gedefinieerd dat de gehele voorwaarde alleen dan waar is indien 
zowel de voorwaarde links als de voorwaarde rechts van de AND 
waar is. Bij de OR is de gehele voorwaarde waar als een van beide 
(of beide) voorwaarden waar is (zijn). 
voorbeelden : 
(a) IF A > B AND C > D THEN …. 

waar indien zowel A>B als C>D, onwaar indien A<=B of C<=D 
(b) IF A > BOR C > D THEN …. 

waar indien òf A>B òf C>D, onwaar indien zowel A<=B en C<=D 
Eventueel kunnen meer dan één AND en/of OR operatoren tussen de 


IF en de THEN voorkomen, waardoor drie of meer 'logische' verge- 
lijkingen binnen één IF...THEN kunnen worden gemaakt. 
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Een nuttige toepassing van AND/OR-operaties is het controleren op 
correcte invoer bij uitvoering van INPUT-opdrachten. Moet een 
invoergegeven bijvoorbeeld tussen 5 en 20 liggen, dan kan dat als 
volgt worden gecontroleerd: 


150 IF F < 5 ORF > 20 THEN PRINT "INVOER INCORRECT" 
of (andersom): 
150 IF F >= 5 AND F <= 20 THEN PRINT “INVOER GEACCEPTEERD" 


Bij het opbouwen van samengestelde voorwaarden is een vergissing 
gauw gemaakt. De problemen komen veelal voor bij de randgevallen, 
dat wil zeggen moet een grenswaarde wel of juist niet meedoen bij 
het bepalen of een voorwaarde al dan niet waar is. Stroomschema's 
bieden dan vaak uitkomst. Daardoor worden de verschillende moge- 
lijkheden beter zichtbaar en wordt de kans op vergissingen bij het 
opbouwen van de voorwaarden kleiner. Uitgebreid testen van de 
andere mogelijke programmatakken is in elk geval geboden! 


Toetsvraag 


(a) Schrijf twee 'IF...THEN'-opdrachten waarbij in de één een AND 
en in de ander een OR voorkomt. De eerste opdracht dient te 
testen of de waarde van een variabele Y groter dan maar onge- 
lijk nul is, en kleiner dan maar ongelijk 1. Wordt aan deze 
voorwaarden voldaan, dan moet de tekst "TUSSEN NUL EN EEN" 
worden afgedrukt. De tweede IF...THEN dient onder dezelfde 
omstandigheden de tekst "NIET TUSSEN NUL EN EEN" af te 
drukken. 


(a) IF Y>0 ANDY <1 THEN PRINT “TUSSEN NUL EN EEN“ 
IF Y <= OOR Y >= 1 THEN PRINT "NIET TUSSEN NUL EN EEN“ 


Nogmaals: het opdrachtdeel van de IF... THEN 


Zoals eerder gezegd kent MSX BASIC de mogelijkheid meer opdrach- 
ten op één regel te coderen, Wordt dit toegepast in het opdrachtdeel 
van een IF...THEN, dan wordt de gehele regel na THEN geacht deel 
uit te maken van de THEN-tak. 


voorbeelden : 
150 IF X < Y THEN PRINT “TE LAAG" : LET T = T + 1 : GOTO 10 
mend 
wordt uitgevoerd indien X < Y 


160 IF X> Y THEN LET T =T +1 : LETG =0 : GOTO 10 
gene 
wordt uitgevoerd indien X > Y 
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Het gebruik van deze constructie kan de overdraagbaarheid in de 
weg staan. Daarom kan het verstandiger zijn toch maar een conven- 
tionele oplossing te zoeken. Bovendien kunnen zich moeilijkheden 
voordoen als de opdrachten die in een THEN-tak thuishoren niet 
alle op één regel passen. Soms wordt de regel dan afgesloten door 
een sprong naar een ander deel van het programma waar de THEN- 
activiteiten worden voortgezet, bijvoorbeeld: 


150 IF X < Y THEN LET X= X +D : LET Y /_N : GOTO 200 
160 IF X> Y THEN LET X=X-D: LET Y Y /N : GOTO 10 


200 LET T = T+ 1 : PRINT “TE LAAG" : GOTO 10 
Dit werkt verwarrend. Een betere oplossing zou zijn: 


150 IF X < Y THEN 200 
160 IF X > Y THEN 250 


200 LET X 


=X+D 
210 LET Y = Y 7 N eventueel geheel of gedeeltelijk 
220 LET T= T+ 1 op één regel 


230 PRINT "TE LAAG" 
240 GOTO 10 
250 … 


Afrondingen 


Ten gevolge van interne afrondingen in de computer zelf kunnen 
onverwachte situaties ontstaan. Een geldwisselprogramma kan bij- 
voorbeeld 4.9999 stuivers in plaats van 1 kwartje als antwoord 
geven. Dergelijke fouten zijn veelal terug te voeren tot 'IF...THEN- 
opdrachten waar — ten gevolge van afronding — een andere tak werd 
uitgevoerd dan de bedoeling was. Dit speelt vooral een rol bij voor- 
waarden waarin het gelijkteken voorkomt, bijvoorbeeld: 


IF X = 1125.75 THEN … 
Zo'n test kan beter vervangen worden door: 


IF X < 1125.75 THEN …. 
IF X > 1125.75 THEN … 


of door: 
IF ABS(X - 1125.75) <= 0.001 THEN …. 


waarbij 0.001 een zelf te kiezen tolerantiewaarde en ABS een abso- 
lute-waardefunctie is*. 


* Het effect van de IF ABS() constructie is dat de vergelijking waar is indien X 
minder dan +0.001 of -0.001 afwijkt van de waarde 1125.75. 
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Toetsvraag 


(a) Waarom kan het testen op gelijkheid (rechtstreeks of gecombi- 
neerd met groter of kleiner dan) beter worden vermeden? 

(a) Ten gevolge van interne afrondingsfouten kunnen in berekenin- 
gen zeer kleine onnauwkeurigheden ontstaan. Een test op gelijk- 
heid zou dan als onwaar kunnen uitvallen terwijl verwacht zou 
mogen worden dat het resultaat van de test waar is. 
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Tot nu toe hebben we met de 'IF...THEN'-opdracht alleen numerieke 
vergelijkingen uitgevoerd. Het vergelijken van strings is echter ook 
mogelijk. Een voorbeeld: 


220 LINE INPUT "GEEF UW VOLLEDIGE NAAM: “; NS 
230 IF N$ = "STOP" THEN 999 


In regel 230 wordt de stringvariabele N$ vergeleken met de string 
“STOP". Merk op dat de string tussen aanhalingstekens staat. De 
uitkomst van de vergelijking (of test) is alleen dan waar als beide 
waarden (dus de string opgeslagen in NS en de string "STOP") 
teken voor teken, en gaande links naar rechts, gelijk zijn. Daarbij 
worden hoofdletters en kleine letters als verschillende tekens 
beschouwd. Bovendien moet de lengte van de strings gelijk zijn en 
moeten eventuele voorafgaande en/of navolgende spaties in beide 
strings op exact dezelfde wijze voorkomen. Elk verschil — hoe klein 
ook — leidt tot het resultaat 'onwaar'. 


Behalve vergelijkingen tussen stringvariabelen en -constanten kun 
nen uiteraard ook stringvariabelen onderling worden vergeleken, 
bijvoorbeeld: 


310 LINE INPUT "GEEF TITEL OP; * ;T! 
320 IF T$ © D$ THEN PRINT ineke TITEL. PROBEER OPNIEUW A.U.B.” 


Tot dusver ging het om het al of niet gelijk zijn van stringwaarden. 
Het uitvoeren van ‘kleiner dan' of ‘groter dan' vergelijkingen is 
moeilijker. Dergelijke bewerkingen zijn onder andere nodig bij het 
sorteren van gegevens en bij het toevoegen van gegevens aan een 
alfabetisch geordend bestand. Zoals we hebben gezien worden 
stringvergelijkingen teken voor teken van links naar rechts uitge 
voerd. Daarbij gaat BASIC voor elk teken uit van een bepaalde 
code. Elk teken dat vanaf het toetsenbord de CPU wordt ingestuurd 
(en omgekeerd) wordt voorgesteld door één zo'n code. Dit geldt 
ook voor toegestane toetscombinaties, zoals SHIFT of CONTROL 
samen met een andere toets. Elk teken komt intern overeen met een 
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serie elektrische pulsen die op een bepaalde manier zijn gecodeerd. 
De codes kunnen volgens een codetabel worden voorgesteld door 
decimale getallen. Een zeer gangbare code, gebruikt door bijna de 
gehele computerwereld, is ASCII (afkorting van American Standard 
Code for Information Interchange). Er zijn in ASCII in totaal 256 
tekens gedefinieerd, waaronder de hoofdletters en kleine letters van 
het alfabet, de cijfers, leestekens en andere bijzondere tekens, en 
ook speciale functietekens zoals het opschuiven van een regel op 
een printer. Voor onze doeleinden zijn slechts de eerste 128 tekens 
van belang. Ze komen overeen met de decimale waarden 0 t/m 127. 
Voor een overzicht hiervan verwijzen we naar appendix B. 


Aan de hand van de ASCII-tabel in appendix B kunt u zien dat de 
cijfers 0 t/m 9 voorgesteld worden door de codegetallen 48 t/m 57. 
Voor de hoofdletters worden de codegetallen 65 t/m 90 gebruikt. 
Voor de kleine letters begint de reeks bij 97, De kleine letter die 
het equivalent is van een bepaalde hoofdletter heeft dus een code- 
getal dat 32 groter is dan het codegetal van de desbetreffende 
hoofdletter. Hoofdletter "A", bijvoorbeeld, heeft als codegetal 65. 
Het codegetal voor de kleine letter "a" is dus 65 + 32 = 97, Van deze 
eigenschap zullen we later gebruik maken. 


Het vergelijkingsmechanisme 


Wat gebeurt er nu eigenlijk bij het vergelijken van strings bij een 
'IF...THEN'-opdracht? Zoals gezegd 'bekijkt' BASIC de strings 
teken voor teken. Bij elk teken wordt uitgegaan van het bijbeho- 
rende codegetal. Blijkt tussen twee tekens ongelijkheid te bestaan, 
dan wordt de string met het teken dat de laagste ASCII-waarde 
heeft aangemerkt als 'kleiner' dan de andere string. BASIC telt dus 
niet de ASCII-codewaarden van de desbetreffende strings op. 


Enkele voorbeelden: 


As Bs 
ABC ABD AS$ is kleiner dan B$ 
MN! MNP AS n „ BS 
123A 123a AS „ " „ BS 


Is de ene string korter dan de andere en zijn er verder geen ver- 
schillen tussen beide strings, dan is de kortste string 'kleiner' dan 
de andere. De reden daarvoor is dat de kortste string intern in 
feite met spaties wordt aangevuld tot de lengte van de grotere. En 
de spatie (Engels: space) heeft juist een waarde die kleiner is dan 
alle andere afdrukbare tekens! Volgens dezelfde redenering kunnen 
we stellen dat een lege string (null string) altijd 'kleiner' is dan een 
niet-lege string. Met deze wijsheid in het achterhoofd nóg enkele 
voorbeelden: 
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AS$ B$ 

JANSE JANSEN AS is kleiner dan B$ 
SMIT SMITH AS „ n „ B$ 
JOHNSEN JOHNSON AS „ " „ B$ 
KELLOG KELLOGG AS «u „ BS 
EQ 8 EQ-8 AS «on „_ BS 


Nu de beurt aan u: 


C$ D$ 
(a) JACOB JACOBS 
(b) GERARD GERALD …… Ís . 
(e) JAN-JAAP JAN JAAP ers in ; 
(d) X12 X-12 we Î8 … 
(e) Basic BASIC e Î8 … 
(£) 95.2 95,2 


(a) C$ is kleiner dan D$ (DS$ heeft meer tekens dan C$, verder 
zijn de strings gelijk) 


(b) C$ is groter dan D$ (R heeft een grotere ASCII-waarde dan L) 


(e) C$ is groter dan D$ (minteken oftewel koppelteken is groter 
dan spatie) 


(d) C$ is groter dan D$ (cijfer 1 is groter dan minteken) 
(e) C$ is groter dan D$ (kleine letters zijn groter dan hoofdletters) 
(f) C$ is groter dan D$ (punt is groter dan komma) 


De stringfuncties ASC en CHRS 


Bij het manipuleren met ASCII-code wordt veel gebruik gemaakt van 
twee zogenaamde stringfuncties, ASC en CHRS. Bij de ASC-functie 
wordt tussen de argumenthaakjes een string of stringvariabele 
opgegeven. De functie levert het ASCII-codegetal van het eerste 
teken van de desbetreffende string. Dit codegetal is een gewone 
numerieke waarde en kan op dezelfde wijze als andere getallen in 
toekenningsopdrachten (LET), PRINT -opdrachten, IF,..THEN- 
vergelijkingen, enz. worden gebruikt. 


voorbeelden : 


LET X = ASC(AS) 

LET X = ASC("ANTWERPEN") 
PRINT ASC(AS) 

IF ASC(NS) = 0 THEN … 
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Toetsvragen 


1. Geef het ASCII-codegetal dat naar aanleiding van onderstaande 
programmaregels wordt geproduceerd. 


(a) 10 LET DS = "DOLLAR" (d) 10 LET VS = "FRANK" 
20 PRINT ASC(DS) 20 LET AS = "JONES" 
30 LET NS = A$ +", " + V$ 
RUN 40 PRINT ASC(VS) 


50 PRINT ASC(A$) 


(b) 10 PRINT ASC(*NEE") 90 VRINTS) 


RUN 


(e) 10 PRINT ASC" ") 


(a) 68 (b) 78 (e) 32 (d) 70 74 74 
2, Geef aan welke string aan A$ moet worden toegekend, wil de 
voorwaarde in de IF...THEN waar zijn. 


(a) IF ASC(AS) = 53 THEN 510 
(b) IF ASC(AS) <> 48 THEN 810 


(a) Eerste teken in A$ moet een 5 zijn. 
(b) Eerste teken in A$ mag alles behalve nul zijn. 


De functie CHRS is de tegenhanger van de ASC-functie. Als argu- 
ment krijgt CHRS$S een ASCII-codegetal. De functie levert een ASCII- 
teken, dat bijvoorbeeld kan worden afgedrukt of als speciaal bestu- 
ringsteken naar het scherm of randapparatuur kan worden 
gestuurd. Dat laatste is het geval als de waarde van het codegetal 
tussen O0 en 31 ligt. Op de TRS-80 kunnen bepaalde codegetallen ook 
voor grafische tekens worden gebruikt (waarden 129 t/m 191, zie de 
TRS-80 gebruikershandleiding). De CHRS$-functie kan ook in 
PRINT-opdrachten worden toegepast om het teken dat met een 
bepaald codegetal overeenkomt af te drukken, bijvoorbeeld: 


B40 PRINT CHRS(72); CHRS(79); CHRS(73); CHRS(33) 


Toetsvraag 
(a) Wat is het resultaat van bovenstaande PRINT-opdracht? (Voer 


de opdracht eventueel op de computer uit of raadpleeg de 
ASCII-tabel.) 
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(a) HOI! 


Bijzondere codegetallen 


Tenslotte nog enkele bijzondere codegetallen, De meeste micro's 
kunnen minstens één audiosignaal produceren (een zoemtoon). 
Daarvoor wordt volgens ASCII het codegetal 7 (BEL) gebruikt, dus: 


PRINT CHRS(7) 


Andere akoestische signalen kunnen mogelijk met andere codegetal- 
len worden geproduceerd, maar dit is sterk afhankelijk van het 
type computer. De ‘toeters en bellen' van hoofdstuk 1 kunnen in dit 
verband dus min of meer letterlijk worden opgevat …. 


Een codegetal om te onthouden is 34. Daarmee kunnen aanhalings- 
tekens worden geproduceerd in situaties (vooral aan weerszijden 
van strings) waar die anders niet zouden verschijnen. Ook andere 
eodegetallen kunnen interessant zijn. Raadpleeg dus uw gebruikers- 
handleiding, vooral wat betreft de ASCII-codes 0 t/m 31. Wellicht 
geeft dat leuke dingen te zien (en te horen)! 


2.10 DE LEN-FUNCTIE 


Soms kan het in een programma nodig zijn de lengte van een string 
te bepalen. Zo'n string kan al dan niet aan een stringvariabele zijn 
toegekend. De lengte kan worden bepaald door middel van de 
functie LEN (afkorting van length = lengte), die als argumentwaar- 
de een string of stringvariabele heeft. Omdat de functie een nume- 
rieke waarde levert kan hij zonder meer worden gebruikt in nume- 
rieke toekenningen, berekeningen, of als vergelijkingswaarde in 
een IF...THEN. De functie kan uiteraard ook vanuit een PRINT- 
opdracht worden aangeroepen. 


voorbeelden : 


1. 10 LET S$ = "DIT IS EEN STRING" 
20 PRINT LEN(S$S) 


RUN 
17 
2, 100 PRINT LEN("DIT IS OOK EEN STRING") 


RUN 
21 
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3. 10 LINE INPUT “GEEF EEN TEKST OP: *; TS 
20 LET N = LEN(TS) 
30 PRINT N 


RUN 
gr EEN TEKST OP: 1, 2, 3, 4 KOMT ER NOG WAT VAN? 


4, 150 LET AS = "JA" 
160 IF LEN(AS) = 2 THEN PRINT "GA NAAR VOLGENDE VRAAG" 


RUN 
GA NAAR VOLGENDE VRAAG 


5. 10 LET MS = "EERSTE STRING" 
20 LET NS = "TWEEDE STRING" 
30 PRINT LEN(MS) + LEN(NS) 


RUN 
2 
Toetsvraag 


Geef de uitvoer behorende bij de volgende programmaregels: 


(a) 10 LET CS = "" 
20 PRINT LEN(CS) 


RUN 


"GERARD" 

“VAN DEN BOSCH” 
30 LET NS =A$+", "+ VS 
40 PRINT NS 

50 PRINT LEN(NS$) 


(a) 0 (b) Li DEN BOSCH, GERARD 


211 DE SUBSTRINGFUNCTIES MIDS, LEFTS en RIGHTS 


Onder 'substring' verstaan we een deel van een string. Van de 
string "BLABLA" is bijvoorbeeld "BLAB" of "LAB" een substring. 
MSX BASIC kent een aantal functies die betrekking hebben op het 
werken met zulke substrings, waaronder MID$, LEFT$ en RIGHTS. 
We beperken ons voorlopig tot de eerste — en naar onze mening ook 
de belangrijkste — van de drie, namelijk MIDS$. 
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De MIDS$-functie maakt het mogelijk willekeurige substrings te selec- 
teren. 
Enkele voorbeelden: 


1. MID$("BLABLA", 2, 3) 
De functie selecteert 3 tekens vanaf het tweede teken van de 
string (L), en levert dus de substring "LAB". 


2. MIDS(TS, 3, 15) 
Aannemende dat aan T$ een string van minstens 17 tekens 
(= 3 + 15 - 1) is toegekend, selecteert MIDS vanaf de derde 
stringpositie 15 tekens als substring. 


3. MID$(DS$, 10) 
In deze aanroep is de lengte van de te selecteren substring (dat 
wil zeggen de derde waarde binnen de haakjes) weggelaten. De 
functie levert in dit geval de gehele resterende substring vanaf 
positie 10. 


4. MIDS(WS, A, C « D) 
Uit dit voorbeeld blijkt dat de beginpositie en ook de lengte van 
de substring als een numerieke variabele of expressie opgegeven 
kan worden. Uiteraard moeten de gebruikte variabelen — net als 
de stringvariabele — van te voren een waarde hebben gekregen. 


Uit deze voorbeelden kunnen we de volgende algemene vorm van de 
MID$-functie 'destilleren': 
MIDS(s, b, 1) 


waarbij: 

- s een stringvariabele of -constante is; 

= b de beginpositie is van de te selecteren string; 
= | de lengte is van de te selecteren substring. 


Zoals uit voorbeeld 3 bleek, mag de derde parameter (1) achterwege 
blijven. In dat geval wordt de gehele resterende substring vanaf 
positie b geselecteerd. Merk op dat 1 niet expliciet de laatste string- 
positie aangeeft, maar het aantal tekens waaruit de te vormen sub- 
string moet bestaan. Dit geeft soms aanleiding tot misverstanden. 


Wijzigen van strings met MID$ 


Behalve voor het selecteren kan de MID$-functie ook worden 
gebruikt voor het wijzigen van strings. 
voorbeeld : 

LET MIDS(NS, 2, 6) = B$ 

met N$ = "SSSSSSSSSS" en B$ = "XXXXXX" 
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Ten gevolge van deze opdracht worden 6 tekens van de aan N$ 
toegekende string vanaf positie 2 vervangen door de aan BS$ toege- 
kende string. N$ wordt dus "SXXXXXXSSS", 


Bevat B$ minder dan 6 tekens, dan wordt de string in NS$ slechts 
door het kleinere aantal tekens overschreven. De rest van de string 
blijft onveranderd. 

voorbeeld: 


BS$ = "XXX" in plaats van "XXXXXX" zou met bovenstaande 
functieaanroep en met N$ wederom "SSSSSSSSSS" de waarde N$ 
wijzigen in "SXXXSSSSSS", 


Heeft B$ meer tekens dan de N$-string vanaf de aangegeven positie 
lang is, dan wordt de NS$-string eenvoudig uitgebreid. 
voorbeeld: 

LET MIDS(NS, 7, 6) = B$ 

met N$ = "SSSSSSSSSS" en B$ = "XXXXXX" 

levert: N$ = "SSSSSSXXXXXX", 


Voorwaarde hierbij is wel dat de maximale lengte van een string 
(255 tekens) niet wordt overschreden. 
Nog een voorbeeld: 

LET MIDS(GS$, 5, 5) = MIDS(BS, 8, 5) 


Door deze opdracht worden vanaf positie 5 in G$ 5 tekens vervan- 
gen door de substring van 5 tekens die op positie 8 in B$ begint. 
De string in G$ wordt dus veranderd, terwijl de string in B$ intact 
blijft. 


Tenslotte: MIDS$ kan niet worden gebruikt om gegevens op te nemen 
in een nulstring, of in een variabele waaraan in het geheel nog geen 
waarde is toegekend. De volgende constructie zou dus een foutcon- 
ditie opleveren omdat de lengte van X$ nul is: 


210 LET X$ = ** 

220 LET MIDS(XS, 1, 3) = "MSX" 

Toetsvragen 

Geef de waarde van Z$ na uitvoering van de volgende opdrachten: 
(a) 160 LET MIDS(KS,8,32) = "AANNEMINGSBEDRIJF ROTHUIZEN B.V." 


KS$ vóór uitvoering: KLANT: AAA 
KSna UIEVOOEMGE: vaavesrndedscinene smse evveeeenderr . 
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(b) 190 LET X$ = "ZANDWEG 13" 
200 LET MIDS(AS, 8, 10) = Xs 
A$ vóór uitvoering: ADRES: BBB 
AE DE: OIVO: „ren oenen snakken nnen senden elemen 


(e) 300 LET X= 13: LETY = 7 
310 LET PS = “1012 UH” 
320 LET MIDS(WS, X, Y) = PS 
WS$ vóór uitvoering: WOONPLAATS: CCCC DD ROTTERDAM 
W$ na uitvoering: …. 


(d 


400 INPUT “GEEF TELEFOONNUMMER: “; N$ 
410 LET MIDS(TS, 11, 10) = NS 


T$ vóór uitvoering: TELEFOON : EEE-FFFFFF 
respons op INPUT : 354782 


(a) KLANT: AANNEMINGSBEDRIJF ROTHUIZEN B.V. 

(b) ADRES: ZANDWEG 13 

(e) WOONPLAATS: 1012 UH ROTTERDAM 

(d) TELEFOON: 354782FFFF 
(Merk op dat het resterende deel van de string zijn oorspronke- 
lijke waarde blijft behouden. Uit dit voorbeeld blijkt dus tevens 
het nut van goede 'prompts'.) 


Nog een selectievoorbeeld: 


150 LET NS = "JAN-JAAP VAN HORSSEN" 
160 PRINT MIDS(NS, 1, 8 

170 PRINT MIDS(NS, 10, 11) 

180 PRINT NS 


RUN 

JAN-JAAP 

VAN HORSSEN 
JAN-JAAP VAN HORSSEN 


In tegenstelling tot gevallen waarin MIDS als vervangingsfunctie 
wordt toegepast, blijft hier de waarde van de oorspronkelijke 
string onveranderd. Er heeft immers geen toekenning plaatsgevon- 
den. 
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Toetsvraag 
Gegeven het volgende programmagedeelte: 


150 LET NS = "INGE GEERLING-ENGELBARTS" 
160 LET VS = MIDS(NS, 1, 4) 

170 LET AS = MIDS(N$, 6, 19) 

180 LET MS = MIDS(NS, 15, 10) 

190 PRINT "VOORNAAM vs 
200 PRINT “ACHTERNAAM 
210 PRINT “MEISJESNAAM: *; MS 


(a) In welke uitvoer resulteert dit? 
(b) Welk teken van N$ wordt niet opgenomen in V$, A$ of M$? 
(e) Wat is de waarde van N$ na afloop van dit gedeelte? 


(a) VOORNAAM : INGE 
ACHTERNAAM: GEERLING-ENGELBARTS 
MEISJESNAAM: ENGELBARTS 


(b) De spatie in positie 5 van N$ 


(ce) INGE GEERLING-ENGELBARTS 
(onveranderd) 


De functies LEFTS$ en RIGHT$ 


Een deel van de taak van de MIDS$ — te weten het selecteren van 
substrings — kan ook worden uitgevoerd door de functies LEFT$ en 
RIGHT$, De aanroep van deze functies heeft de volgende vorm: 


LEFT$(s, n) 
en 
RIGHT$(s, n) 
waarbij s een stringvariabele of -constante is, en n het aantal te 
selecteren tekens. 
voorbeelden: 
160 PRINT LEFTS(AS, 8) 
De eerste (dat wil zeggen de linker) 8 tekens van de aan A$ toege- 
kende string worden afgedrukt. 


170 LET R = 12 
180 LET BS = RIGHTS(AS, R) 


De laatste (dat wil zeggen de rechter) 12 tekens van de aan AS toe- 
gekende string wordt aan BS toegekend, 
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In tegenstelling tot de MIDS-functie kunnen LEFTS en RIGHTS uit- 
sluitend voor het selecteren van substrings worden gebruikt. Ze 
zijn dus niet zo veelzijdig als MIDS$, en worden in dit boek daarom 
weinig toegepast. LEFT$ wordt wel gebruikt bij het testen op 
'ja/neen' antwoorden naar aanleiding van INPUT-prompts, bijvoor- 
beeld: 


240 LINE INPUT "GEBRUIKSAANWIJZING NODIG (J/N)? "; GS 
250 IF LEFTS(GS, 1) = "J" THEN 600 


Het voordeel van zo'n constructie is dat een gebruiker zowel met 
bijvoorbeeld J, JA, N, NEE, NEEN, enz. kan antwoorden, zonder 
het goede verloop van het programma te verstoren. De beginletter 
is immers de enige die telt. 


Hoewel RIGHTS minder wordt toegepast dan MIDS$ en LEFTS, toch 
een praktisch voorbeeld: 


240 LINE INPUT “IN WELK JAAR BENT U GEBOREN? "; JS 
250 PRINT “GEBOORTEJAAR: 19"; RIGHTS(JS, 2) 


Toetsvraag 


Geef aan hoe de computer bij bovenstaand programmagedeelte op de 
volgende antwoorden zou reageren: 


(a) Gebruiker antwoordt: 1938 
Uitvoer Eeveeee vaveneeveene .. 


(b) Gebruiker antwoordt: '64 
Uitvoer B aenertertavesdenver 


(e) Gebruiker antwoordt: GEBOREN IN 1958 
Uitvoer Eenveversensserveeene 


(d) Gebruiker antwoordt: ACHTEN VEERTIG 
Uitvoer 2 asvvesevsanssernives 

(a) GEBOORTEJAAR: 1938 

(b) GEBOORTEJAAR: 1964 

(e) GEBOORTEJAAR: 1958 

(d) GEBOORTEJAAR: 19IG 


2.12 DE INSTR-FUNCTIE 


Ook handig bij het werken met strings is de functie INSTR (afkor- 
ting van instring). De functie dient om de plaats aan te geven van 
een substring binnen een andere string. De te onderzoeken string 
wordt in de vorm van een stringconstante of -variabele als eerste 
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parameter meegegeven, de substring — eveneens in constante- of 
variabelevorm — als tweede (en laatste) parameter. Als waarde 
levert INSTR de beginpositie van de substring binnen de te onder- 
zoeken string*. Komt de substring daarin niet voor dan is de func- 
tiewaarde nul. Enkele voorbeelden zullen dit verduidelijken . 


voorbeeld 1: 
250 LET X = INSTR (“BLABLA", "LAB") 


In dit geval is "BLABLA" de te onderzoeken string, en "LAB" de 
gezochte substring. De functie levert als waarde 2, omdat "LAB" 
inderdaad in "BLABLA" voorkomt en wel vanaf positie 2. Het code- 
ren van bijvoorbeeld de substring "ABC" in plaats van "LAB" zou 
als functiewaarde nul leveren. Deze substring komt immers niet in 
de te onderzoeken string voor. 


voorbeeld 2: 

10 LET A$ = "AMSTERDAM" 
20 LET BS = "STER" 

30 LET CS = "DAM" 

40 LET X = INSTR (AS, BS) 
50 PRINT X 

60 LET Y = INSTR (AS, CS) 
70 PRINT Y 


In dit voorbeeld twee aanroepen van INSTR met stringvariabelen 
als parameters. Aan u de (toets)vraag: welke uitvoer wordt naar 
aanleiding hiervan geproduceerd? 


Antwoorden: 3 (naar aanleiding van eerste PRINT); 
7 (naar aanleiding van tweede PRINT). 


voorbeeld 3: 


250 LET M$ = "JANFEBMRTAPRMEIJUNJULAUGSEPOKTNOVDEC" 
260 LINE INPUT “WELKE MAAND? "; MIS 

270 LET L = INSTR (MS, MIS) 

280 PRINT “POSITIE: *; 
290 GOTO 260 


RUN 

WELKE MAAND? MEI 
POSITIE: 13 

WELKE MAAND? AP 
POSITIE: 10 

WELKE MAAND? OKTOBER 
POSITIE: 0 

WELKE MAAND? A 
POSITIE: 2 


* Merk op dat de functie INSTR in tegenstelling tot MIDS, LEFTS en RIGHTS 
geen S-teken achter de naam heeft, ondanks het feit dat de functie betrekking 
heeft op strings. De reden hiervoor is dat INSTR een numerieke waarde ople- 
vert. Naar analogie van numerieke variabelen krijgt de naam dan geen S-teken. 
De andere genoemde functies leveren wel een stringwaarde en krijgen daarom 
— naar analogie van stringvariabelen — wel een S-teken. 
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Merk op dat zelfs met twee letters (AP) de maand APR gevonden 
wordt. "OKTOBER" komt in M$ niet voor en levert dus de functie- 
waarde nul op. Het intypen van A resulteert in de functiewaarde 
2, omdat dit de eerste plaats is waar deze letter in M$ voorkomt. 


Soortgelijke technieken kunnen ook zonder INSTR worden toegepast 
om gewenste of ongewenste tekens in een string te zoeken. In het 
volgende programmagedeelte wordt bijvoorbeeld met behulp van de 
eerder besproken functies MID$ en LEN het einde van een substring 
bepaald die afgesloten wordt door een spatie. 


740 LET NS = "PIET HEIN" 

750 FOR S = 1 TO LEN(NS) 

160 IF MIDS(NS, S, 1) = " “ THEN 780 
170 NEXT S 

780 PRINT MIDS(NS, 1, S-1) 


Toetsvragen naar aanleiding van bovenstaand programmagedeelte 
(a) Wat is de maximale waarde van de FOR-besturingsvariabele S? 


(b) Wat is de lengte van de door MIDS geselecteerde substring in 
regel 760? 


(e) In welke positie van de aan NS toegekende waarde bevindt zich 
de spatie? 


(d) Waarom wordt in regel 780 de uitdrukking S - 1 gebruikt in 
plaats van S? 


(e) Welke uitvoer wordt geproduceerd naar aanleiding van regel 
7180? 

(a) LEN(NS) = 9 

(b) één teken 

(e) positie 5 

(d) S geeft op dat moment niet de positie van het laatste teken van 
de gezochte substring aan, maar van de spatie 

(e) PIET 


213 'ON..GOTO'-OPDRACHT 


We weten dat we met een gewone GOTO een 'sprong' kunnen uitvoe- 
ren. Ten gevolge van zo'n sprong wordt de normale volgorde van 
het uitvoeren van opdrachten doorbroken. Er ontstaat als het ware 
een andere tak binnen het programma. Anders gezegd: de bestu- 
ringsstroom van het programma wordt vertakt. Door een GOTO- 
opdracht op te nemen in een IF-opdracht (al dan niet met het sleu- 
telwoord GOTO) krijgen we een voorwaardelijke sprong, dat wil 
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zeggen de sprong wordt pas daadwerkelijk uitgevoerd als er voldaan 
is aan de in de IF genoemde voorwaarde. 


Zetten we deze gedachtengang door, dan komen we uit bij de 'ON... 
GOTO'-opdracht. Met deze opdracht kunnen we afhankelijk van een 
(beperkte) voorwaarde naar verschillende plaatsen in het program 
ma springen. Vanuit de ene 'ON...GOTO'-opdracht ontstaan dan 
verschillende programmatakken. 


De ON...GOTO heeft de volgende algemene vorm: 
ON a GOTO r1, r2, r3, .…., rn 


waarbij a een numerieke waarde voorstelt (variabele of expressie), 
en rl t/m rn regelnummers voorstellen. De waarde van a moet in 
principe tussen len n liggen. Heeft a de waarde 1 dan wordt 
gesprongen naar regel rl, heeft a de waarde 2 dan naar regel r2, 
enz, Het aantal regelnummers dat kan worden opgegeven is slechts 
beperkt door de maximale lengte van de opdrachtregel. 


Een concreet voorbeeld: 
ON X GOTO 310, 450, 660, 660, 660, 720, 830, 910 


Heeft X bij uitvoering van deze opdracht de waarde 1 dan wordt 
gesprongen naar regel 310. Voor X = 2 wordt gesprongen naar 
regel 450, voor X = 3, 4 of 5 naar regel 660, enz. 


Is de waarde van X nul of groter dan het aantal opgegeven regel- 
nummers, dan wordt de desbetreffende ON,,.GOTO overgeslagen, 
De computer geeft een foutmelding en staakt vervolgens de uitvoe 
ring van het programma, als X een negatieve waarde heeft (illegal 
function call). 


Een praktische toepassing van de ON...GOTO is het geval dat de 
gebruiker van een programma verschillende mogelijkheden geboden 
wordt. Hij kan dan als het ware een keuze maken uit een 'menu'. 


voorbeeld: 

250 REM *** DEMONSTRATIE MENU-PROGRAMMA 

260 REM 

270 LINE INPUT "GEBRUIKSAANWIJZING NODIG (J/N): *; GS 
280 IF GS <> "J" THEN 500 

290 REM 

300 REM PRESENTEER MENU 

310 REM 

320 CLS : REM: MAAK SCHERM SCHOON 

330 REM 

340 PRINT “DIT PROGRAMMA BIEDT DE VOLGENDE MOGELIJKHEDEN: * 
350 PRINT "A, GEGEVENS WEGSCHRIJVEN NAAR NIEUW BESTAND" 
360 PRINT "B. TOEVOEGEN AAN REEDS AANWEZIG BESTAND" 
370 PRINT "C. MUTEREN VAN REEDS AANWEZIG BESTAND" 

380 PRINT “D, UITLIJSTEN VAN REEDS AANWEZIG BESTAND" 


390 PRINT "E. SELECTEREN VAN GEGEVENS UIT BESTAND" 
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400 REM 

410 LINE INPUT "MAAK UW KEUZE (A-E): 

420 ON INSTR ("ABCDE“, KS) GOTO 500, “loo: 700, 800, 900 
430 PRINT “ses INVOERFOUT +++" 

440 PRINT "U MOET EEN VAN DE LETTERS A T/M E INVOEREN" 
450 GOTO 410 


460 REM 


Merk het gebruik op van de eerder besproken INSTR-functie om de 
ingevoerde keuzewaarde te converteren naar een (numerieke) 
selectiewaarde voor de ON...GOTO. Dit kan ook met de ASC- 
functie gebeuren, bijvoorbeeld: 


400 REM 

410 LINE INPUT "MAAK UW KEUZE (A-E): "; K$ 
420 LET K = ASC (K$) - 64 

430 IF K< 1 ORK > 5 THEN 450 

440 ON K GOTO 500, 600, 700, 80 

450 PRINT "*** INVOERFOUT *en" 
Toetsvragen 


(a) Welke waarde krijgt K wanneer de letter C wordt ingevoerd? 


(b) Waarom is regel 430 in de alternatieve programmaconstructie 
opgenomen? 

(a) 3. (De ASCII-waarde van de letter C is 67. Deze waarde wordt 
geleverd door de aanroep ASC (K$) in regel 420.) 

(b) Door een illegale keuzewaarde op te geven zou K buiten het 
bereik 1 t/m 5 kunnen vallen, waardoor de ON...GOTO niet 
correct uitvoerbaar zou zijn. Regel 430 voorkomt dit. 


2.14 FOR/NEXT-CONSTRUCTIES 


Bij het herhaald uitvoeren van opdrachten onder besturing van een 
lusvariabele verdient het aanbeveling gebruik te maken van FOR/ 
NEXT-opdrachten. 


De constructie: 
100 FOR X = 1 TON 


110 PRINT X, Xa2 
120 NEXT X 


verdient dus de voorkeur boven de constructie: 
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100 LET X = 1 

110 PRINT X, X22 

120 LETX=Xe+1 

130 IF X <= N THEN 110 


De FOR/NEXT-oplossing is duidelijk korter (zeker als de test in 
regel 130 omgedraaid zou worden), ziet er beter uit en is gemakke- 
lijker te lezen. 


Probeer bij het gebruik van FOR/NEXT-constructies het voortijdig 
verlaten van de lus te voorkomen. Zo'n voortijdige beëindiging komt 
bij wijze van voorbeeld in het volgende programmadeel voor: 


100 FOR X= 1 TON 
110 IF A(X) =B(X) THEN 200 
120 NEXT X 


Er zijn twee redenen om van dergelijke constructies liever geen 
gebruik te maken. Ten eerste kan de waarde van de lusvariabele 
(in bovenstaand voorbeeld X) bij het verlaten van de lus ongedefi- 
nieerd raken, dat wil zeggen een waarde krijgen (of hebben) die 
anders is dan hij logischerwijze bij het verlaten van de lus zou moe- 
ten hebben.* Het gebruik van die variabele — in het vertrouwen dat 
hij de verwachte waarde heeft — kan dan tot hoogst onplezierige 
verrassingen leiden waarvan de oorzaak vaak moeilijk te achterhalen 
is, De tweede reden om FOR/NEXT-lussen niet voortijdig te verlaten 
is dat daardoor de programmastructuur wordt aangetast. Er komt 
wéér een sprong bij, en het programma wordt dus ook een tikkeltje 
moeilijker te volgen. Meestal kan het programma toch zo worden 
geschreven dat de gewenste bewerkingen binnen de lus worden uit- 
gevoerd in plaats van daarbuiten (uitzonderingen daargelaten). 


voorbeeld: 
slecht: 100 FOR X= 1 TON 
no IF A(X) = B(X) THEN 130 
120 NEXT X 
130 LET S=Se1 
140 GOTO 120 


noot: Deze constructie — hoewel toegestaan — kan als bijzonder 
'smerig' worden aangemerkt omdat behalve het voortijdig ver- 
laten ook nog wordt teruggesprongen in de lus, 


* Opmerking van de vertaler /bewerker: 
Dit hangt samen met gebruik van zogenaamde registers in plaats van 'gewone' 
geheugenlokaties voor het bijhouden van de waarde van lusvariabelen. Hierbij 
wordt de ‘teller'-waarde niet steeds tussen werkgeheugen en CPU heen en weer 
getransporteerd, maar op efficiënte wijze in de CPU zelf bijgehouden. Bij beëin- 
diging — vooral voortijdige beëindiging — van de lus is het mogelijk dat de regis- 
terinhoud niet naar de desbetreffende geheugenlokatie wordt getransporteerd. 
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goed: 100 FOR X= 1 TON 


110 IF A(X) <> B(X) THEN 130 
120 LET S= S «1 
130 NEXT X 


Springen naar een subroutine door middel van een GOSUB is overi- 
gens wel acceptabel. Bij uitvoering van de RETURN wordt de uit- 
voering van de lus immers op de normale wijze voortgezet. 


Toetsvraag 


(a) Schrijf met behulp van geneste FOR/NEXT-opdrachten een pro- 
gramma dat tot gevolg heeft dat op verschillende regels drie 
keer het woord "HALLO" wordt afgedrukt, waarbij na elke 
"HALLO" vier keer het woord "DAG" verschijnt (eveneens op 
verschillende regels). 


(a) 10 FOR X=1 103 


20 PRINT "HALLO" 
30 FOR Y= 1704 
40 PRINT "DAG" 
50 NEXT Y 

60 NEXT X 


2.15 MULTI-OPDRACHTREGELS 


Hoewel de opdracht nuttig kan zijn heeft hij ook zijn slechte kanten. 
Houd daarom bij het gebruik ervan rekening met het volgende. 


1. Multi-opdrachtregels zijn vaak slecht leesbaar, en soms ook moei- 
lijk te begrijpen. Slechte leesbaarheid kan u — of uw collega- 
programmeur — vooral parten spelen als het programma in een 
later stadium moet worden veranderd. Het coderen van één 
opdracht per regel is duidelijker. 


2. Wilt u perse multi-opdrachtregels gebruiken, zorg dan dat per 
regel zo mogelijk één afgeronde procedure of actie wordt aange- 
geven. Het 'logisch' voorzetten van een multi-opdrachtregel op 
andere regels werkt verwarrend. 


3. Het lokaliseren van fouten in multi-opdrachtregels is betrekkelijk 
moeilijk , 

4, Pas op met 'IF...THEN'-opdrachten in multi-opdrachtregels. 
Eventuele opdrachten na de IF...THEN die op dezelfde regel 
staan worden alleen dan uitgevoerd als aan de IF-voorwaarde is 
voldaan. Ze vormen als het ware een 'blok' dat als geheel (samen 
met de opdracht direct na THEN) wordt uitgevoerd als de voor- 
waarde waar is (zie S 2.8). 
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voorbeeld: 

200 REM VERWISSEL INHOUD A EN B INDIEN A < B 
210 REM 

220 IF A<B THEN C=A:A=B:Be=C 
230 


Toelichting. De drie toekenningsopdrachten worden alle uitge- 
voerd indien A kleiner is dan B. Is A groter dan of gelijk aan B 
dan worden alle toekenningsopdrachten overgeslagen. De pro- 
gramma-uitvoering wordt voortgezet bij regel 230, 


Het toepassen van multi-opdrachtregels is dus niet slechts een 
kwestie van opdrachten die anders op verschillende regels zou- 
den staan onderbrengen in één fysieke regel. Ook de uitvoering 
wordt beïnvloed, met alle gevaren van dien. 


5. REMARK-opdrachten moeten in multi-opdrachtregels uiteraard 
altijd als laatste worden opgenomen. Alle tekst na het woord REM 
— ook uitvoerbare BASIC-opdrachten — wordt immers als commen- 
taar opgevat. 


Toetsvragen 
(a) Gegeven de constructie: 


200 IF X«= Y THEN PRINT “U HEBT GEWONNEN!" : GOTO 10 
210 PRINT "VERKEERD NUMMER" : GOTO 60 


Welke opdracht(en) wordt/worden uitgevoerd als X ongelijk is 
aan Y? 


(b) Neem aan dat aan de voorwaarde in regel 120 van het onder- 
staande programmadeel is voldaan. De GOSUB wordt dus uitge- 
voerd. Bij welke opdracht wordt de uitvoering van het program- 
ma voortgezet na terugkeer uit de subroutine? 


120 IF X= 2 THEN GOSUB 510 : GOTO 360 
130 PRINT “X ONGELIJK TWEE" 


(a) De PRINT-opdracht in regel 210 
(b) GOTO 360 
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2.16 TOETSVRAGEN 


10. 


Bij numerieke vergelijkingen (testen) in 'IF...THEN'-opdrach- 
ten kan het beter zijn de test op ‘groter dan' of 'kleiner dan' te 
baseren, in plaats van op gelijkheid. Waarom? 


Wanneer zijn bij strings in DATA-opdrachten aanhalingstekens 
nodig? 


Hoe kan een nulstring (lege string) aan een variabele in een 
INPUT- of een 'LINE INPUT '-opdracht worden toegekend? 


Geef het resultaat van het uitvoeren van het volgende program- 
madeel : 


10 LET AS = "ALFRED" 
20 LET BS = "CONTRACT" 


30 LET C$ = "32C 

40 PRINT ASC(A$); ASC(BS); ASC(C$) 

Welke strings moeten vooraf (successievelijk) aan DS$ zijn toege- 
kend als de voorwaarden in onderstaande 'IF... THEN '-opdrach- 
ten waar zijn? 


(a) IF ASC(DS$) < 48 OR ASC(DS) > 57 THEN 660 
(b) IF ASC(DS$) > 64 AND ASC(DS$) < 91 THEN GOSUB 1520 


Welke waarde zal de LEN-functie leveren voor een string die uit 
15 spaties bestaan? 


Geef het resultaat van het uitvoeren van het volgende program- 
madeel : 


10 LET MS = "STAR TREK" 

20 LET N$ = "WARS" 

30 LET GS = MIDS(MS, 1, 5) + NS 

40 LET MIDS(MS, 6, 4) = MIDS(NS, 1, 4) 
50 PRINT GS 

60 PRINT MS 


Geef een voorbeeld van een gewone numerieke variabele en van 
een gewone stringvariabele. 


Geef minstens één reden voor het vermijden van multi-opdracht- 
regels. 


Welke opdracht wordt in het onderstaande programmadeel na 
uitvoering van de GOSUB en de bijbehorende subroutine uitge- 
voerd? 


120 IF X>10 THEN GOSUB 810 : GOTO 110 
130 PRINT "GROETJES VAN REGEL 130” 
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11. Als de naam van een variabele uit meer dan twee alfanumerieke 
tekens bestaat, hoeveel van die tekens zijn dan voor de compu- 
ter van werkelijke betekenis? 


2.17 ANTWOORDEN OP DE TOETSVRAGEN 


1. Ten gevolge van afrondingsfouten bij het uitvoeren van bereke- 
ningen kunnen zeer kleine afwijkingen ontstaan ten opzichte van 
het theoretisch verwachte resultaat. Daardoor kan een test op 
gelijkheid ten onrechte resulteren in ‘onwaar’. 


2, Aanhalingstekens zijn nodig als de stringwaarde een komma of 
voorafgaande spaties bevat. 


3, Door zondermeer de ENTER- c.q. RETURN-toets in te drukken, 
4, 65 67 51 


5. (a) Het eerste teken van DS mag geen cijfer zijn (O t/m 9). 
(b) Het eerste teken van D$ moet een hoofdletter zijn (A t/m Z). 


6. 15 (spaties worden als tekens beschouw). 


71. STAR WARS 
STAR WARS 


8. Numerieke variabele : A (of een andere letter), eventueel 
gevolgd door een cijfer. Stringvariabele : A$ (of voorafgaande 
aan het $-teken een andere letter), eventueel met een cijfer 
direct vóór het S-teken. 


9, Meer dan één opdracht per regel maakt het programma moeilijker 
te lezen. Fouten zijn moeilijker te vinden, Bij 'IF...THEN'- 
opdrachten kunnen gemakkelijk vergissingen worden gemaakt. 
(Eén van deze antwoorden) 

10, GOTO 110 


11. In MSX BASIC slechts de eerste twee tekens. 


3 GEGEVENSINVOER EN -CONTROLE 
MODULES 


3.0 DOELSTELLINGEN 


Na het bestuderen van dit hoofdstuk moet u in staat zijn een gege 
vensinvoermodule samen te stellen. Met de opdrachten die u daarbij 
gebruikt moeten de ingevoerde gegevens op de volgende punten 
gecontroleerd kunnen worden: 


— juiste lengte 

= geen respons (nulstring) 

— gegevenstype (numeriek of alfanumeriek) 
= verkeerde tekens 

= parameterwaarden bij numerieke gegevens. 


Bovendien moet u gegevensinvoermodules kunnen schrijven die: 


— duidelijke prompts genereren 

= gebruik maken van goed ingerichte gegevensvelden 

= gegevens kunnen samenvoegen tot één enkel gegevensveld 

= gegevens zonodig aanvullen tot de juiste veldlengte 

= overbodige spaties uit een gegevensveld verwijderen 

— onderdelen van een gegevensveld vervangen 

- volledige tekst en uitleg aan de gebruiker geven als hij fouten 
maakt. 


31 INLEIDING 


In dit hoofdstuk houden we ons bezig met de invoer van gegevens. 
Dit terrein hebben we in de voorgaande hoofdstukken al enigszins 
‘voorgeploegd', met name bij de behandeling van de modulaire 
opbouw van programma's (hoofdstuk 1, $$ 1.5 en 1.9) en van de 
'INPUT'- en de 'LINE INPUT '-opdrachten in het vorige hoofdstuk 
(88 2.5 en 2.6). Voor we hiermee verder gaan eerst enkele defini- 
ties. 
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Gegevens, gegevensinvoer en gegevensbestanden 


Onder gegevens verstaat men strikt genomen de invoergrootheden 
waarop een programma opereert, en die door dat programma tot 
(zinvolle) informatie worden getransformeerd. De gegevens vormen 
als het ware de grondstoffen die door een produktieproces — een 
samenspel tussen de apparatuur en de programmatuur — worden ver- 
werkt tot een eindprodukt: informatie. In het kader van dit boek 
zullen we onder gegevens alle grootheden verstaan die als invoer 
voor een programma kunnen dienen of als uitvoer van een program- 
ma zijn ontstaan, en die in zogenaamde gegevensbestanden op fysie- 
ke opslagmedia zoals schijfgeheugens of cassettebanden (kunnen) 
worden opgeslagen. 


Zulke gegevens kunnen bijvoorbeeld bestaan uit: 

- adreslijsten, ledenlijsten of rekeningoverzichten 

= inventarislijsten van winkel- of magazijnartikelen 

— boekhoudkundige of administratieve gegevens 

= titels van boeken, geluidsopnamen, tijdschriftartikelen 
= aantekeningen voor een publikatie 

- resultaten van metingen of experimenten 

= resultaten van statistische steekproeven, enz. 


Onder gegevensinvoer verstaan we het proces van het aanbieden 
van de te verwerken gegevens aan de computer. De invoer vindt 
plaats — zoals gezegd — onder besturing van invoeropdrachten zoals 
INPUT en LINE INPUT. 


Gegevens worden op fysieke opslagmedia zoals schijfgeheugens 
(bijvoorbeeld floppy disks) en cassettes ondergebracht in de vorm 
van gegevensbestanden. Onder gegevensbestanden (Engels: data 
files) verstaan we een verzameling bij elkaar horende invoergege- 
vens die zo zijn gestructureerd en georganiseerd dat ze door een 
computer kunnen worden gemanipuleerd. Dat wil zeggen de com- 
puter moet (via het programma) een willekeurige gegevensplaats 
binnen het bestand kunnen benaderen, en het gegeven dat zich 
daar bevindt kunnen kopiëren naar het werkgeheugen (lezen), 
kunnen overschrijven met een ander gegeven of verwijderen. 


Het belang van goede gegevensinvoer 


Om goed bruikbaar te zijn moet een gegevensbestand in de eerste 
plaats betrouwbaar zijn. Dat wil zeggen: de daarin opgenomen gege- 
vens moeten nauwkeurig zijn (zowel inhoudelijk als wat hun vorm 
betreft) en ze moeten geldigheid bezitten. We spreken hierbij van 
gegevensintegriteit. De nauwkeurigheid van de programma-uitvoer 
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— de informatie — staat of valt met de integriteit van de gebruikte 
gegevens. 


Onjuiste of ongeldige gegevens kunnen bij verwerking bovendien 
tot gevolg hebben dat het programma onderbroken, gestopt of ab- 
normaal beëindigd wordt. Treedt zo'n onverwachte storing op dan 
kan er met de in bewerking zijnde gegevens van alles gebeuren: 
half-afgemaakte regeldrukkeruitvoer (bijvoorbeeld rapporten of 
verslagen), verloren gaan of vernietiging van gegevens, onbruik- 
baar worden van bestanden door gedeeltelijke verwerking, enz. De 
gevolgen kunnen rampzalig zijn, hoewel het niet altijd zo'n vaart 

zal lopen. Dat hangt mede af van de kwaliteit van het programma. 
Met name de mogelijkheid tot gegevensverificatie — het vermogen van 
het programma om incorrecte gegevens bij voorbaat te signaleren en 
daarop adequaat te reageren — kan veel ellende voorkomen. En hier- 
mee hebben we u dan hopelijk voldoende gemotiveerd om in dit 
hoofdstuk even 'pootje te baden' met invoertechnieken, alvorens in 
het volgende hoofdstuk in het diepe water van het opbouwen en 
benaderen van bestanden te duiken! 


3.2 LENGTE VAN HET GEGEVENSVELD 


Om dit aspect van de gegevensinvoer te belichten gaan we uit van 
een fictief bedrijf dat met behulp van de computer een telefoonlijst 
wil samenstellen. In de lijst moet van elke medewerker naam, afde- 
ling en telefoonnummer worden vermeld. Deze gegevens moeten 
naast elkaar als een regel worden afgedrukt. 


Een van de eerste beslissingen die we bij het programma-ontwerp 
moeten nemen — uitgaande van de (zeer realistische) veronderstelling 
dat het bevoegd bedrijfsgezag het bij deze enigszins vage probleem- 
stelling heeft gelaten — is hoe lang elk gegeven afzonderlijk, en hoe 
lang de totale regel mag zijn. Met 'lang' bedoelen we in dit verband 
het aantal tekens waaruit het gegeven of de regel bestaat. Verder 
gaan we ervan uit dat elke regel een uniforme indeling krijgt, waar- 
door de overeenkomstige gegevens van de verschillende regels 
kolomsgewijs onder elkaar komen te staan. 


Met het telefoonnummer zullen we de minste moeite hebben. Meestal 
zal dit bestaan uit een vast aantal tekens, bijvoorbeeld 3. Voor 
afdelings- en persoonsnamen wordt het moeilijker: beide (in ieder 
geval persoonsnamen) hebben een variabele lengte. Voor afdelings- 
namen zouden we — eventueel in overleg met de opdrachtgever — 
zonodig afkortingen (liefst met vaste lengte) kunnen invoeren . 
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Stel dat we tot de volgende regelindeling komen : 


1. naam: maximaal 25 tekens 

2. twee scheidingsspaties 

3. afdelingscode: vaste lengte van 3 tekens 
4. twee scheidingsspaties 

5. telefoonnummer: vaste lengte van 3 tekens 


in totaal dus 35 tekens. 


Toetsvraag 


Geef een schematisch overzicht van de voorgenomen regelindeling. 
Gebruik daarbij schuine strepen om de verschillende velden (ook de 
scheidingsvelden) te markeren, en plaats in elk veld ter identifica- 
tie een volgnummer. 


Stel dat in de invoermodule de volgende opdrachten voorkomen om 
de gegevens in 'dialoog' met de gebruiker in te voeren: 


100 LINE INPUT "NAAM 1 !N$ 
110 LINE INPUT "AFDELINGSCODE : ";A$ 
120 LINE INPUT “TELEFOONNUMMER : ";T$ 
130 LET RS =N$ +" "+AS 4" "+ TS 
140 PRINT "REGEL WORDT : * 

150 PRINT R$ 


Op het eerste gezicht lijkt dit misschien een gezonde oplossing. 
De gegevens worden netjes stuk voor stuk ingelezen, en in regel 
130 geconcateneerd tot één uitvoerregel, die keurig ter controle 
wordt afgedrukt. De twee onderstaande RUN's laten zien dat er 
toch een addertje onder het gras ligt. 


(a) RUN 
NAAM : SMIT, MEJ. A.B.C. 
AFDELINGSCODE : ADM 
TELEFOONNUMMER : 325 


REGEL WORDT : SMIT, MEJ. A.B.C. ADM 25 
(b) RUN 
NAAM : VAN HIER TOT GUNTER, BARON MR. P. 


AFDELINGSCODE : DIR 
TELEFOONNUMMER : 999 


REGEL WORDT : VAN HIER TOT GUNTER, BARON MR. P. DIR 999 


Toetsvraag 


Vul de openstaande plaatsen in om het resultaat van regel 130 in 
bovenstaand programmadeel weer te geven. 
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(a) R$ = SMIT, MEJ. A.B.C. ADM 3/25/.../.…/.…. 
(b) RS = VAN HIER TOT GUNTER, BARO/N./ MR/. /P. DIR 999 


We zien dus dat deze werkwijze tot verstoringen in de regelindeling 
leidt als de ingevoerde namen niet precies even lang zijn als van te 
voren was vastgelegd. Aangezien de lengte van juist een gegeven 
zoals een persoonsnaam nogal kan variëren is onze methode slecht 
bruikbaar. In de volgende paragraaf bespreken we een alternatief. 


Controle op acceptabele lengte 


Het probleem bij de voorgaande programmaconstructie was dat inge- 
voerde gegevens steeds van dezelfde lengte moesten zijn. Dat hield 
in dat ze door de gebruiker zonodig tot de juiste lengte moesten 
worden afgekort of met spaties tot de juiste lengte moesten worden 
aangevuld. Gebeurde dit niet, dan resulteerde een en ander zonder 
meer — en in eerste instantie ongemerkt — in een verstoorde lay-out. 
In dit gedeelte zullen we zien hoe we een programma zo kunnen con- 
strueren dat automatisch op de juiste lengte wordt gecontroleerd. 
Voldoet een gegeven bij invoer niet aan de juiste lengte, dan kan de 
gebruiker daarop worden geattendeerd. Wat de inhoudelijke kant 
van het voorbeeld betreft nemen we aan dat de — wellicht enigszins 
dubieuze — praktijk van het afkorten van persoonsnamen toelaatbaar 
is. 


We demonstreren de lengtecontrole rechtstreeks aan de hand van 
een programmaconstructie. Het principe is gebaseerd op een aanroep 
van de LEN-functie als voorwaardedeel van een IF...THEN . 


100 LINE INPUT "NAAM zi 
102 IF LEN(NS) > 25 THEN 
PRINT “MAXIMAAL 25 TEKENS. OPNIEUW INVOEREN AUB.“ : GOTO 100 


RUN 
NAAM : VAN HIER TOT GUNTER, BARON MR. P‚ 
a 25 TEKENS. OPNIEUW INVOEREN AUB. 


A 
Toetsvraag 


Schrijf soortgelijke opdrachten om de lengte van de andere invoer- 
velden in ons telefoonlijst-voorbeeld te controleren. 


(a) zi LINE INPUT "AFDELINGSCODE : "; A$ 
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(b) 120 LINE INPUT "TELEFOONNUMMER : "; T$ 
122 


(a) 112 IF LEN(AS) > 3 THEN 
PRINT “MAX, 3 TEKENS. OPNIEUW INVOEREN AUB." : GOTO 110 


(b) 122 IF LEN(TS) > 3 THEN 
PRINT “MAX. 3 TEKENS. OPNIEUW INVOEREN AUB.“ : GOTO 120 


Aanvullen met spaties 


Behalve de mogelijkheid dat invoergegevens de toegestane veldleng- 
te overschrijden, bestaat er ook de mogelijkheid dat ze te kort zijn. 
Ook dat leidt tot onregelmatigheden in de indeling. Om dit te ver- 
mijden kunnen we een mechanisme in het programma inbouwen om 
ingevoerde gegevens zonodig automatisch met spaties tot de juiste 
lengte aan te vullen. Men noemt dit in het Engels 'padding' (to pad 
= op- of aanvullen). 


Voor de persoonsnamen in ons voorbeeld zouden we daartoe de eer- 
der besproken invoermodule als volgt kunnen uitbreiden: 


100 LINE INPUT "NAAM" : *; NS 
102 IF LEN(NS) > 25 THEN 

PRINT 'MAX.25 TEKENS. OPNIEUW INVOEREN AUB." : GOTO 100 
104 IF LEN(NS) <= 25 THEN LET NS = N$ + : _GOTO 104 


Regel 104 wordt hierbij herhaald uitgevoerd, totdat N$ de juiste 
lengte heeft, 


Toetsvraag 


(a) Schrijf een gegevensinvoermodule voor het invoeren van een 
artikelcode van 3 alfanumerieke tekens, gevolgd door een arti- 
kelomschrijving van maximaal 20 tekens en een persoonscode 
van 2 tekens. De persoonscode wordt samengesteld uit de initia- 
len van de gebruiker. Combineer de afzonderlijke gegevens na 
invoer en controle tot één string van 25 tekens, die aan een 
enkele variabele wordt toegekend. 


(a) zie p.66. 
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(a) 110 REM 
120 LINE INPUT "ARTIKELCODE (3 TEKENS) : * CS 
130 IF LEN(CS) > 3 THEN 
PRINT "3 TEKENS NODIG. OPNIEUW INVOEREN AUB." : GOTO 120 
135 REM 
140 LINE INPUT "OMSCHRIJVING (MAX. 20 TEKENS): “; OS 
150 IF LEN(OS) > 20 THEN 
PRINT "OMSCHRIJVING TE LANG. OPNIEUW AUB.” : GOTO 140 
160 IF LEN(OS) < 20 THEN 
LET OS =0$ + ** : GOTO 160 
165 REM 
170 LINE INPUT "INITIALEN (2 TEKENS) ens 
180 IF LEN(NS) <> 2 THEN 
PRINT "2 TEKENS NODIG. OPNIEUW INVOEREN AUB." : GOTO 170 
185 REM 
190 LET AS = C$ + 0$ + NS 
195 REM 


Verwijderen van spaties 


We hebben gezien dat het nodig kan zijn strings door het programma 
met extra spaties aan te vullen om de juiste veldlengte te krijgen. 
Het omgekeerde kan ook nodig zijn, vooral wanneer gegevens uit 
bestaande strings worden 'gelicht'. 


Stel bijvoorbeeld dat ons fictieve bedrijf haar lijst met telefoongege- 
vens netjes in een computerbestand heeft opgeslagen, en na ver- 
loop van tijd het bestand wil gebruiken om de medewerkers uit te 
nodigen voor een personeelsfeest. Uit het bestand zijn alleen de 
persoonsnamen nodig. Als eis wordt gesteld dat het desbetreffende 
programma eerst de voorletters met eventuele titels, aanduidingen 
zoals 'mevrouw', 'mejuffrouw', ‘van de' — of eventuele afkortingen 
van deze aanduidingen — selecteert. Daarna moet de achternaam aan 
het eerst geselecteerde gegeven worden geconcateneerd. Het gege- 
ven "BIL, H. VAN DER", bijvoorbeeld, moet dus worden omge- 
keerd tot "H. VAN DER BIL". Zonder spatiereeks tussen voorlet- 
ters en achternaam uiteraard. 


Deze laatste eis brengt ons in moeilijkheden. Het naamveld werd bij 
het opbouwen van het bestand namelijk juist met spaties tot de juis- 
te lengte aangevuld. Zouden we vanaf de komma na de achternaam 
de rest van het naamveld selecteren als voornaam — en dat ligt voor 
de hand — dan krijgen we bij het concateneren van voornaam en 
achternaam juist wel tussenliggende spaties. Onze "BIJL, H. VAN 
DER “ zou dan worden: "H. VAN DER BIL", 


De volgende programmaconstructie biedt daarvoor een oplossing. 
Het is gebaseerd op het consequent gescheiden zijn van de twee 
deelgegevens door een komma en een spatie. Bovendien is ervan uit- 
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gegaan dat de bestandsregel al is opgeslagen in een programmava- 
riabele, namelijk R$. Hoe de overdracht van een bestandsregel van- 
af een floppy of cassette verloopt, laten we nog even buiten 
beschouwing. 


2000 REM ROUTINE VOOR HET OMKEREN VAN DEELGEGEVENS IN NAAMVELD, 
2010 REM EN DAARBIJ VERWIJDEREN VAN OVERBODIGE SPATIES 


2020 REM 

2030 LET K_ = INSTR(RS, *, 

2040 LET NIS = MIDS(RS, 1, K-1) 

2050 LET N2$ = MIDS(RS, K+2, MIDS(RS, K+2, LEN(RS)-K-2) 
2060 REM 

2070 LET L2 = LEN (N25) 

2080 FOR I= L2 TO 1 STEP -1 

2090 IF MIDS(N2S, I, 1) = ** THEN 2120 
2100 LETL3 = 1 

2110 GOTO 2130 

2120 NEXT 1 

2130 REM 

2140 LET N3$ = MIDS(N2S, 1, L3) 

2150 LET NS =N3$ + ** + MI 

2160 REM 

Toelichting 


a. De twee deelgegevens in R$ zijn gescheiden door een komma en 
een spatie. Het eerste deelgegeven begint in positie 1. Met 
behulp van de functie INSTR bepalen we eerst de positie K van 
de komma (regel 2030). We weten dan ook de positie van het laat- 
ste teken van het eerste deelgegeven, namelijk K-1. Het eerste 
deelgegeven (de achternaam, of althans het laatste deel daarvan) 
is dus de substring van positie 1 t/m positie K-1 van R$. We 
bepalen deze substring met behulp van de functie MID$ en ken- 
nen deze toe aan NIS (regel 2040). 


b. Van het tweede deelgegeven weten we dat het in positie K+2 
begint, en dat het in principe kan doorlopen t/m positie 25: de 
laatste positie van het totale gegevensveld. We selecteren voorlo- 
pig deze substring als geheel met MIDS$, en kennen hem toe aan 
N2$. 


e. Van N2$ moeten nu eventueel achterliggende spatie worden ver- 
wijderd. Hiertoe bepalen we eerst de lengte L2 van N2$ (regel 
2070) en gebruiken L2 als beginwaarde van een 'aftelproces' 
waarin de inhoud van N2$ 'van achteren naar voren' wordt beke- 
ken op de aanwezigheid van spaties (regels 2070 t/m 2120). 
Blijkt voor een gegeven waarde van I geen spatie aanwezig te 
zijn, dan weten we dat I op dat moment de laatste positie van het 
tweede deelgegeven aangeeft. We kunnen de FOR/NEXT-lus 
waarin dit aftelproces plaatsvindt nu in principe verlaten. In 
verband met het mogelijk ongedefinieerd raken van 1 bij het 
(voortijdig) verlaten van de lus, 'redden' we zijn waarde door 
die toe te kennen aan L3 (regel 2100). 
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d. Vervolgens verlaten we de lus (regel 2110), bepalen we — alweer 
met MIDS$ — de gewenste substring, en kennen deze toe aan N3$ 
(regel 2140). De gezochte deelgegevens bevinden zich nu in N3$ 
(voorste deel van de naam) en NIS (achterste deel van de naam). 
In regel 2150 worden ze met een tussenspatie tot één string (NS) 
geconcateneerd. 


3.3 CONTROLEREN OP NULSTRINGS 


Een van de eigenaardigheden van zowel de INPUT- als de 'LINE 
INPUT'-opdracht is dat aan stringvariabelen een nulstring wordt 
toegekend als de gebruiker uitsluitend met het indrukken van de 
RETURN- of ENTER-toets reageert. Als een programma zo'n respons 
zonder meer zou aanvullen met spaties, zou dit weliswaar een geldig 
gegeven opleveren maar we zouden daar waarschijnlijk niet mee uit 
de voeten kunnen. Het is daarom zaak ingevoerde gegevens op het 
vóórkomen van nulstrings te controleren. 


Er zijn hiervoor twee eenvoudige methoden, die even goed functio- 
neren: 


a. IF A$ ="" THEN ……… 
b. IF LEN(AS) =0 THEN …… 


In ieder geval opnieuw zal de programmeur moeten besluiten hoe hij 
het per abuis invoeren van een nulstring zal opvangen. Wat hij 
zeker niet mag doen is de invoeropdracht klakkeloos herhalen, bij- 
voorbeeld: 


170 INPUT "KLANTNUWER — : *; KS 
180 IF LEN(KS) =O THEN 170 


RUN 

KLANTNUMMER 
KLANTNUMMER 
KLANTNUMMER 


Een gebruiker die hardnekkig volhoudt geen klantnummer op te 
geven, krijgt hierbij geen enkele aanwijzing van wat er nu eigenlijk 
fout gaat. Geef daarom altijd een foutmelding — eventueel vergezeld 
van een audio waarschuwingstoon — zodat de gebruiker weet dat er 
met zijn respons iets niet in orde is. 
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voorbeeld: 


170 INPUT “KLANTNUMMER" a 4 
180 IF LEN(KS) = 0 THEN cöste 1010 


io1o PRINT “VOORTZETTING PROGRAMMA ALLEEN MOGELIJK MET KLANTNUMMER" 


1100 RETURN 


Toetsvraag 


Schrijf met deze zaken in gedachten een (deel van een) gegevens- 
invoermodule die onderstaande prompts genereert. Test elk gegeven 
onmiddellijk na het invoeren op. een nulstringwaarde. 

(a) KLANTNUMMER 

(b) KLANTNAAM 

(e) ARTIKELNUMMER 

(d) BESTELDE HOEVEELHEID : 


(a) 210 REM 
220 


LINE INPUT "KLANTNUMMER : * KS 
230 IF LEN(KS) = 0 THEN 
PRINT “INVOERFOUT, OPNIEUW INVOEREN AUB" : GOTO 220 
235 REM 
240 LINE INPUT "KLANTNAAM zNS 
250 IF LEN(NS) = 0 THEN 
Ei PRINT "INVOEREN ZOALS AANGEGEVEN AUB" : _GOTO 240 
25! M 
260 LINE INPUT "ARTIKELNUMMER : *; AS 
270 IF LEN(AS) = 0 THEN 
3 PRINT “PROGRAMMA KAN ZONDER ARTIKELNR. NIET VERDER : GOTO 260 
75 REM 
280 LINE INPUT “BESTELDE HOEVEELHEID : 
290 IF LEN(HS) = 0 EN 
PRINT “VOER JUISTE HOEVEELHEID IN AUB" : GOTO 280 
295 REM 
Merk op: 


1, Soortgelijke meldingen en/of andere stringvariabelen zijn uiter- 
aard toegestaan. 
2. In plaats van LINE INPUT kan ook INPUT worden gebruikt. 


Afhankelijk van het inzicht — of het gebrek daaraan — van de 
gebruiker kunnen meer gedetailleerde meldingen nodig zijn, ook 
voor andere problemen dan het per abuis invoeren van nulstrings. 
De voorbeelden hierboven hebben we bewust voor (onze) duidelijk- 
heid zo eenvoudig mogelijk gehouden. Het laatste voorbeeld zouden 
we desnoods als volgt kunnen aanpassen: 
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170 LINE INPUT “KLANTNUMMER : "; 
180 IF LEN(KS) = 0 THEN GOSUB dors : _GOTO 170 


1010 PRINT "U HEBT KENNELIJK OP DE RETURNTOETS GEDRUKT ZONDER EEN" 
1015 PRINT “GEGEVEN IN TE TYPEN. " 

1020 PRINT "ER IS EEN KLANTNUMMER NODIG, BIJVOORBEELD A-121" 

1030 RETURN 


Afbakenen van modules en subroutines 


Het gebruik van subroutines voor de opvang van invoerfouten kan 
problemen met zich meebrengen, met name als het hoofdprogramma 
niet naar behoren wordt afgesloten met een END- of eventueel 
STOP-opdracht. De subroutine wordt dan aangezien voor een deel 
van het hoofdprogramma en als zodanig uitgevoerd. Een en ander 
komt meestal aan het licht bij de uitvoering van de RETURN- 
opdracht van de subroutine (aannemende dat deze niet is vergeten). 
De subroutine is immers niet op de juiste wijze — met een GOSUB — 
aangeroepen, en 'weet' dus ook niet waarheen hij moet terugkeren. 
Resultaat: een forse tik op de vingers, oftewel een 'fatal error'. 


Toetsvraag 


Schrijf een foutverwerkingssubroutine die door middel van een 
GOSUB in het THEN-deel van een 'IF...THEN'-opdracht wordt aan- 
geroepen. De subroutine moet naar aanleiding van een verkeerde 
respons op de opdracht: 


320 LINE INPUT “ARTIKELOMSCHRIJVING: "; 0$ 


aangeven dat aan een beperking van maximaal 20 tekens moet wor- 
den voldaan. De aangeboden invoer moet worden afgedrukt. 
invoervoorbeeld: 


ARTIKELOMSCHRIJVING: DUBBELZIJDIGKLEVENDPLAKBAND 


(a) Uw oplossing moet er ongeveer zo uitzien: 
330 IF LEN(OS) > 20 THEN GOSUB 1140 : GOTO 320 


1110 STOP 

1120 REM _FOUTVERWERKING 

1130 REM 

1140 PRINT "U VOERDE “; OS; “IN ALS ARTIKELOMSCHRIJVING" 
1150 PRINT "VOER OPNIEUW IN AUB, MAAR AFGEKORT TOT MAX.” 


1160 PRINT "20 TEKENS, INCL. SPATIES EN LEESTEKENS.” 
1170 RETURN 
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3.4 VERVANGEN VAN DEELGEGEVENS 


Ondanks protesten uit feministische kringen is het in de meeste 
westerse landen nog steeds de gewoonte dat een vrouw bij het trou- 
wen de achternaam van haar man aanneemt. Is de vrouw onder haar 
meisjesnaam in een computerbestand geregistreerd, waarbij de 
(meisjes)naam samen met de voorna(a)m(en) in één gegevensveld is 
opgenomen, dan doet zich na de trouwdatum het probleem voor dat 
een deel van het naamveld vervangen moet worden — of althans aan- 
gepast — door een ander gegeven. Eenvoudigheidshalve nemen we 
aan dat de meisjesnaam daarbij door de nieuwe naam mag worden 
overschreven. 


Om dit probleem op te lossen gaan we uit van een vaste lengte voor 
zowel de voornaam, voornamen of voorletters enerzijds, als de ach- 
ternaam anderzijds. We kiezen daarvoor respectievelijk 8 en 12 
tekens. Beide deelvelden scheiden we met een spatie, zodat de tota- 
le lengte van het gegevensveld 21 is. Verder veronderstellen we dat 
de invoer van zowel de oorspronkelijke als de nieuwe gegevens van- 
uit één programma wordt verzorgd. 


Het gegevensinvoerdeel zou er als volgt kunnen uitzien: 
100 REM INVOEREN VAN OORSPRONKELIJKE GEGEVENS 


110 REM 
120 LINE INPUT "VOORNAAM : "; VS 
130 IF LEN(VS) = 0 THEN 

PRINT “U WORDT VERZOCHT VOORNAAM OP TE GEVEN." + GOTO 120 
140 IF LEN(VS) > 8 THEN 

PRINT “VOORNAAM TE LANG. MAX, 8 TEKENS AUB." : GOT 120 
150 IF LEN(VS) <8 THEN 

LET V$= V$ +" " : GOTO 150 
160 REM 
170 Die INPUT “ACHTERNAAM: “; A$ 
180 LEN(AS) = 0 THEN 

PRINT "U WORDT VERZOCHT ACHTERNAAM OP TE GEVEN." : GOTO 170 
190 IF LEN(AS) > 12 THEN 

PRINT “ACHTERNAAM TE LANG. MAX. 12 TEKENS AUB." + _GOTO 170 
200 IF LEN(AS) < 12 THEN 

LET AS =A$ + ** : GOTO 200 
210 REM 
220 LET NS = VS + * " «L$ 


Na uitvoering van dit programmadeel staan voor- en achternaam, 
gescheiden door een spatie, in de variabele N$. Voor het vervangen 
van de bestaande achternaam door de nieuwe zouden we de volgen- 
de constructie kunnen maken: 
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400 REM VERVANGEN VAN ACHTERNAAM 


410 REM 
420 LINE INPUT "NIEUWE ACHTERNAAM: “; AIS 
430 IF LEN(AIS) = 0 THEN 

PRINT “NIEUWE ACHTERNAAM OPGEVEN AUB." : GOTO 420 
440 IF LEN(AIS) > 12 THEN 

PRINT "ACHTERNAAM TE LANG. MAX. 12 TEKENS." : _GOTO 420 
450 IF LEN(A1S) < 12 THEN 

LET Al$ =AlS +" " :__GOTO 450 
460 REM 
470 LET MIDS(NS, 10, 12) = Al$ 


De voornaam, de achternaam of beide (zowel vóór als na de mutatie) 
kunnen naar wens — afhankelijk van de variabele I, die hiervoor de 
waarde 1, 2 respectievelijk 3 moet hebben — door middel van het 
volgende programmadeel worden afgedrukt. 


en REN AFDRUKKEN VAN VOORNAAM (I=1), ACHTERNAAM (I=2) OF BEIDE (1=3) 
10 REM 


620 IF I< 1 OR I> 3 GOSUB 820 

625 ON 1 GOTO 640, 670, 700 

630 REM 

640 PRINT MIDS(NS, 1, 8) : REM *** ALLEEN VOORNAAM »=* 
650 GOTO 720 

660 REM 

670 PRINT MIDS(NS, 10, 12) : REM *** ALLEEN ACHTERNAAM *** 
680 GOTO 720 

690 REM 

700 PRINT NS : REM *** VOLLEDIGE NAAM *+* 
710 REM 


800 REM _SUBROUTINE VOOR OPVANGEN VERKEERDE WAARDE VAN 1 (ON,,,GOTO) 


Toetsvragen 
(a) Waartoe dient de opdracht LET AS$ = A$ + " "in regel 200? 
(b) Wat is het effect van regel 220? 


(e) Wat gebeurt er ten gevolge van de aanroep van MID$ in regel 
470? 

(d) Als "MIES" en "BROUER" zijn ingevoerd als oorspronkelijke 
voor- en achternaam, welke uitvoer wordt dan ten gevolge van 
regel 700 geproduceerd? 


(a) Vult de resterende (ongebruikte) posities met spaties aan tot de 
juiste veldlengte. Dezelfde techniek wordt ook in regels 150 en 
450 toegepast. 


(b) De voor- en achternaam, gescheiden door een spatie, worden in 
NS$ opgeslagen. 
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(e) 12 tekens van N$ worden vanaf positie 10 vervangen door de 
aan AlS$ toegekende string (dat wil zeggen de nieuwe achter- 
naam). 


(a) MIES BROUER 
(alle aanvullende spaties worden 'meegenomen' bij het afdrukken 
van NS$). 


3.5 GEBRUIK VAN DE VAL-FUNCTIE BĲ INVOERCONTROLE 


Met behulp van de functie VAL (afkorting van value = waarde) kan 
op betrekkelijk eenvoudige wijze worden gecontroleerd of een 
respons, waarbij een numerieke waarde moet worden ingevoerd, ook 
daadwerkelijk numeriek is. Voor een bestelhoeveelheid, bijvoor- 
beeld, verwachten we per definitie een numerieke waarde. Het con- 
trolemechanisme berust op het feit dat alfanumerieke invoer in de 
vorm van een getal door de VAL-functie tot de overeenkomstige 
numerieke getalwaarde wordt geconverteerd. 


voorbeeld: 


330 LET AS = "128.95" 
340 PRINT VAL(AS) 
350 A = VAL(AS) 

360 PRINT A 


RUN 
128.95 
128.95 


Aan het getal gaat een tekenpositie vooraf: een spatie als het getal 
positief is, een minteken als het getal negatief is. 


De VAL-functie helpt ons niet altijd uit de brand bij de conversie 
van strings naar numerieke waarden. Een van de problemen is bij- 
voorbeeld een vergissing zoals het intypen van de letter O in plaats 
van het cijfer 0. Ook het toevoegen van een maateenheid aan een 
getalwaarde (bijvoorbeeld 12 KG) kan bij invoercontrole met behulp 
van VAL tot problemen leiden. 


De waarde die VAL in dergelijke gevallen levert is sterk afhankelijk 
van de computer waarmee men werkt. Hieronder volgen enkele tes- 
ten uitgevoerd op een MSX-computer. Probeer ze op uw eigen 
machine voordat u verdergaat. Mocht u hierbij moeilijkheden onder- 
vinden, dan kunnen de opmerkingen na de testopdrachten u wellicht 
verder helpen. 
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100 REM TEST 1, VAL-FUNCTIE 


110 REM 
120 LET AS = "ABC" 
130 PRINT AS, VAL(AS) 
140 REM 
150 REM TEST 2, VAL-FUNCTIE (NULSTRING) 
160 REM 
170 LET As ="" 
180 PRINT AS, VAL(AS) 
190 REM 
200 REM TEST 3, VAL-FUNCTIE 
210 REM 
220 LET As = "123ABC" 
230 PRINT AS, VAL(AS) 
240 REM 
250 REM TEST 4, VAL-FUNCTIE 
260 REM 
270 LET A$ = "ABC123" 
280 PRINT AS, VAL(AS) 
RUN 
ABC 0 

0 
123ABC 123 
ABC123 0 


Sommige computers kunnen al bij regel 120 de kluts volledig kwijtra- 
ken. In dat geval kunt u de RUN bij regel 170 hervatten met behulp 
van de commando RUN170 of — als uw computer dit commando niet 
kent — door regels 100 t/m 150 te verwijderen en een gewone RUN te 
geven.* Op dezelfde wijze kunt u desnoods ook de rest van het pro- 
gramma doorlopen. 


Bespreking van het testprogramma 


Deze bespreking is gebaseerd op de MSX-implementatie van de 
VAL-functie, zoals die in bovenstaande RUN tot uitdrukking komt. 
Andere methoden om dezelfde effecten te bereiken worden bespro- 
ken in het gedeelte over ASCII-code. 


De eerste conclusie die we kunnen trekken is dat VAL de waarde nul 
levert als de argumentwaarde zuiver alfabetisch is, of uit een nul- 
string bestaat. Gemengde alfabetische en numerieke tekens resulte- 
ren eveneens in de functiewaarde nul als de alfabetische tekens aan 
de numerieke tekens voorafgaan, bijvoorbeeld ABC123, Het omke- 
ren van het alfabetische en het numerieke deel, bijvoorbeeld 
123ABC, levert de desbetreffende numerieke waarde (in ons voor- 
beeld dus 123), De MSX-versie van VAL laat alfabetische gegevens 
die na numerieke gegevens komen dus buiten beschouwing. Dit is 
plezierig als na de numerieke waarde bijvoorbeeld een maateenheid 


* De vorm RUN... is overigens zeer handig bij het 'ontluizen' van programmê's. 
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wordt opgegeven, maar lastig als zo'n gegeven op zuiver numerieke 
inhoud moet worden gecontroleerd. Voorlopig nemen we aan dat bij 
gemengde alfabetische en numerieke tekens de laatstgenoemde tekens 
vooraan staan en de bedoelde getalwaarde voorstellen . 


Testen op numerieke invoer 


Onder voorbehoud van de zojuist genoemde restrictie kan numerieke 
invoer met een constructie als de volgende worden gecontroleerd: 


IF VAL(AS) = O THEN PRINT "ALLEEN NUMERIEKE WAARDEN: TOEGESTAAN" 


Omdat sommige computers zich in nulstrings kunnen 'verslikken' is 
het aan te bevelen deze opdracht onmiddellijk na de test op een nul- 
string in uw programma op te nemen. Anders loopt u kans op een 
foutmelding en het stoppen van de RUN. 


Toetsvraag 


(a) Naar aanleiding van S 3.3, blz.69 werd gevraagd een gegevens- 
invoermodule te schrijven waarin controle-opdrachten voor nul- 
strings waren opgenomen. Voeg aan deze module nu opdrachten 
toe om te controleren of het artikelnummer en de bestelde hoe- 
veelheid als numerieke waarden worden ingevoerd. Test boven- 
dien op een viercijferig artikelnummer. 


LINE INPUT "KLANTNUMMER 1; KS 
230 IF LEN(KS) = 0 THEN 
et PRINT “INVOERFOUT, OPNIEUW INVOEREN AUB," : _GOTO 220 
240 LINE INPUT “KLANTNAAM zt; NS 
250 IF LEN(NS) = 0 THEN 
et IE PRINT “INVOEREN ZOALS AANGEGEVEN AUB." :__GOTO 240 
M 

260 EDE INPUT ien : % A$ 
270 F LEN(AS) = 0 THEN 

PRINT voorTzertinG ZONDER DIT GEG. ONMOGELIJK" : _GOTO 260 
272 IF VAL(AS) = 0 THEN 

PRINT “UITSLUITEND NUMERIEKE WAARDEN TOEGESTAAN" : GOT 260 
274 IF LEN(AS) © 4 THEN 
A: PRINT “NUMMER MOET UIT 4 CIJFERS BESTAAN" : _GOTO 260 

REM 

280 LINE INPUT SED HOEVEELHEID : 
290 IF LEN(HS) = 0 THEN 

PRINT hoürsre HOEVEELHEID INVOEREN AUB." :__G0TO 280 
292 IF VAL(HS) = 0 THEN 

PRINT “UITSLUITEND NUMERIEKE WAARDEN TOEGESTAAN" : _GOTO 280 


295 REM 
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3.6 GEBRUIK VAN DE STR$-FUNCTIE VOOR CONVERSIE 
NAAR STRINGWAARDEN 


De STRS$-functie (afkorting van string) is de tegenhanger van VAL. 
Hij dient voor het converteren van numerieke waarden naar string- 
waarden. Dankzij deze functie kunnen bewerkingen met getallen in 
samenhang met strings gemakkelijker worden uitgevoerd. 


Stel bijvoorbeeld dat een artikelnummer, een artikelomschrijving en 
een voorraadaantal in één lange string zijn opgeslagen. Het voor- 
raadaantal kan op een gegeven moment nodig zijn om een of andere 
berekening uit te voeren, waarna een nieuw voorraadaantal in de 
oorspronkelijke string moet worden opgenomen. In dit geval is om te 
beginnen de getalwaarde van de deelstring 'voorraadaantal' nodig. 
Daarvoor kunnen we de VAL-functie gebruiken. Na berekening van 
het nieuwe voorraadaantal kunnen we deze (numerieke) waarde met 
behulp van de STRS-functie converteren naar een stringwaarde, die 
op zijn beurt weer in de oorspronkelijke string kan worden opgeno- 
men. 


Dus: Las ] 


BOEKTITEL 


A$ = A$ + STRS(V) 
of: 

V$ = STR$(V) 

A$ = A$ + V$ 


waarbij V$ de variabele is waarin het voorraadaantal wordt opgesla- 
gen. 


Bij het converteren van een numerieke waarde naar een stringwaar- 
de met STRS$ wordt in de resulterende string een spatie opgenomen 

als het getal positief is. Er komt een minteken vooraan te staan als 

het getal negatief is. Dit komt onder andere tot uitdrukking bij het 
toepassen van de LEN-functie op de resulterende string. 


voorbeeld: 
140 LET X = 847.25 


847.25 
847.25 
7 


kj 
vun 
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Met de voorafgaande tekenpositie moet dus uitdrukkelijk rekening 
worden gehouden. Een negatief getal van zes cijfers, bijvoorbeeld, 
past niet in een gegevensveld van zes tekens. Probeert men dat toch 
dan kunnen significante cijfers of het minteken verloren gaan. 


Toetsvraag 


Uit hoeveel tekens zouden de volgende getallen bestaan als ze met 
behulp van de STR$-functie naar stringwaarden zouden worden 
geconverteerd? 


(a) 171.83 
(b) 2001 
(e) -999 


(a) 6 ; (b) 4 (e) 4 


3.7 CONTROLEREN OP ILLEGALE TEKENS 


Ingevoerde strings kunnen op het voorkomen van illegale tekens 
worden onderzocht door collectieve toepassing van de ASC-functie, 
de MID$-functie, de IF,..THEN en de FOR/NEXT, Als eerste stap 
hierbij wordt met LEN de lengte van de te onderzoeken string 
bepaald. Deze waarde wordt als eindwaarde van de FOR-besturings- 
variabele gebruikt, bijvoorbeeld: 


350 LINE INPUT “GEEF CATALOGUSCODE (6 TEKENS): "; CS 
360 FORX= 1 TO LEN(CS) 


Vervolgens wordt met behulp van MIDS$, waarbij de besturingsvaria- 
bele (dus X in bovenstaand voorbeeld) wordt gebruikt om stap voor 
stap één teken van de string te selecteren. De geselecteerde waarde 
wordt vergeleken met de ASCII-waarde van het te controleren teken, 
of eventueel rechtstreeks met het teken zelf. 


voortzetting voorbeeld: 


370 IF ASC(MIDS(CS, X, 1)) = 32 THEN 
RINT "OPNIEUW INVOEREN ZONDER SPATIES AUB." : _GOTO 350 
380 NEXT X 
of: 
370 IF MIDS(CS, X, 1) = " " THEN 


PRINT …. 
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In dit voorbeeld gaat het dus om het testen op het vóórkomen van 
spaties in de ingevoerde string. De eerste methode — waarbij de 
ASC-functie wordt toegepast — is iets algemener, maar minder duide- 
lijk dan de tweede. Algemener omdat bij samengestelde voorwaarden 
(AND/OR) gemakkelijker een bepaalde serie tekens als testwaarden 
kunnen worden gebruikt. Minder duidelijk omdat we — althans als 
gewone stervelingen — bij de numerieke voorstelling van tekens een 
codetabel nodig hebben om de desbetreffende tekens te kunnen 
(terug)lezen. 


Toetsvraag 1 


Stel dat een gebruiker de volgende RUN maakt van het zojuist 
besproken programmadeel: 


RUN 
GEEF CATALOGUSCODE (6 TEKENS): Ab-b1314 (b = spatie) 


(a) Wat is de lengte van de door MIDS$ geselecteerde string in 
regel 370? 


(b) Welke ASCII-waarde wordt met het getal 32 vergeleken bij eer- 
ste uitvoering van de FOR/NEXT-lus? 


(ce) En bij de tweede uitvoering? 


(d) Bij welke iteratie (dat wil zeggen de 'hoeveelste' doorgang) van 
de FOR/NEXT is de vergelijking in regel 370 waar? 


(e) Wat is de theoretische eindwaarde van de besturingsvariabele X? 
Dat wil zeggen hoeveel keer zou de lus (afgezien van eventueel 
voortijdige afbreking) maximaal kunnen worden uitgevoerd? 


(b) 65 (zijnde de ASCII-waarde van A) 
(e) 32 (spatie) 

(d) tweede iteratie 

(e) LEN(CS) = 8 


Toetsvraag 2 


(a) Schrijf soortgelijke controle-opdrachten als in bovenstaand 
voorbeeld (regels 350 t/m 380) om een foutmelding te produce- 
ren bij het ontdekken van een illegaal teken. Als legale tekens 
komen hierbij alleen de cijfers O t/m 9 en de punt (als decimaal 
teken) in aanmerking. 


(a) zie p.79. 
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(a) 100 LINE INPUT “GETALWAARDE: *; WS 
110 FOR X= 1 TO LEN(WS) 
120 IF ASC(MIDS(WS, X, 1)) >= 48 AND 
ASC(MIDS(WS, X, 1)) <= 57 OR 
ASC(MIDS(WS, X, 1)) = 46 THEN 160 


130 PRINT "ONGELDIGE INVOER. UITSLUITEND CIJFERS EN" 
140 PRINT "EVENTUEEL EEN DECIMALE PUNT TOEGESTAAN." 
150 GOTO 100 


160 NEXT X 
zie voetnoot 


3.8 ALGEMENE BESPREKING VAN GEGEVENSINVOER 
EN -CONTROLE 


In dit hoofdstuk zijn aanbevelingen gedaan, aanwijzingen gegeven 
en technieken behandeld voor het invoeren en controleren van gege- 
vens. Daarbij ging het overwegend over specifiek technische zaken. 
In deze paragraaf bespreken we wat algemenere aspecten van de 
gegevensinvoer en -controle. 


Waar controleren we? 


Over de vraag op welk punt in de gegevensverwerking invoercon- 
troles het beste kunnen worden uitgevoerd zijn de meningen ver- 
deeld. Er zijn globaal twee benaderingen. De eerste is vooral van 
belang in een professionele omgeving en gaat ervan uit dat de tijd 
van degene die gegevens invoert kostbaar is, en dat invoercontro- 
les daarom zo weinig mogelijk tijd in beslag mogen nemen. Controles 


Opmerking van de vertaler /bewerker: 

De efficiëntie (en dus de snelheid) van dit programmadeel kan aanzienlijk worden 
verbeterd door de ASC/MIDS-aanroepen onmiddellijk vóór de IF te plaatsen, en 
het resultaat aan een hulpvariabele (bijvoorbeeld H) toe te kennen. Deze H wordt 
dan in plaats van de functie-aanroepen in de IF-opdracht gebruikt. Dus: 


RD ven 
115 LET H = ASC(MIDS(WS, X, 1)) 

120 IF H>=48 AND Her 57 OR H=46 THEN 160 

130. zer 

Dit bespaart per iteratie vier tijdrovende functie-aanroepen. 
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tijdens het invoeren zelf zijn daarom uit den boze, zo redeneert men. 
In een later stadium — nadat alle gegevens zijn ingevoerd — contro- 
leert een afzonderlijk programma of de invoer acceptabel was. Elke 
keer dat daarbij een invoerfout wordt ontdekt, wordt de gehele 
invoer' transactie! voor die serie gegevens geweigerd. De serie 
wordt in zijn geheel afgedrukt, en aan de hand van de listing en het 
oorspronkelijke invoerdocument verbeterd. 


Deze procedure werkt goed als het aantal fouten betrekkelijk klein 
is. Daarom is het van belang dat de nodige tijd en moeite wordt 
geïnvesteerd in het trainen van degenen die met de invoer worden 
belast. 


Zelf geven we de voorkeur aan de tweede benadering: elk gegeven 
na invoer onmiddellijk controleren. Deze directe controle is overi- 
gens ook geschikter voor kleinere administratieve toepassingen, en 
voor de meer persoonlijk gerichte toepassingen. Wordt bij deze vorm 
van controle een fout ontdekt, dan wordt de invoerder als het ware 
direct op de vingers getikt. De fout kan dan meteen worden her- 
steld. Een van de voordelen hiervan is dat degene die de fout maakt 
ook verantwoordelijk is voor het verbeteren daarvan. Bij de eerste 
methode moeten speciale voorzieningen worden getroffen om te ach- 
terhalen wie voor de fout verantwoordelijk is. Voor effectieve 
bedrijfsvoering kan dit een nadeel zijn. 


Beeldschermgebruik 


Bij de invoer van gegevens via beeldschermen zijn — ook al — twee 
methoden gangbaar. De eerste gaat uit van een grafische afbeelding 
van het gedrukte formulier waarop de in te voeren gegevens staan 
genoteerd. Voor deze methode is veel te zeggen. De computer laat 
de invoerder als het ware de stippelveldjes invullen op dezelfde 
manier als bij het invullen van het formulier zou gebeuren. Voor- 
waarde hierbij is dat het beeldscherm speciale grafische mogelijkhe- 
den heeft. 


Bij de tweede methode worden één of meer gegevensseries na invoer 
als geheel op het scherm afgedrukt. De gebruiker wordt dan in de 
gelegenheid gesteld eventueel verkeerde gegevens opnieuw in te 
voeren. Ook gegevens die door de mazen van eerste, directe invoer- 
eontrole-'netten' zijn geglipt kunnen hierbij aan het licht komen en 
hersteld worden. Daarbij kan onder andere gedacht worden aan 
spelfouten, getalverwisselingen en typografische fouten. 


Een voorbeeld van zo'n controle achteraf is het volgende: 
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DANK U WEL, UW INVOER WAS: 


KLANTNUMMER ARTIKELNR HOEVEELHEID 


LE 98213 17892 20 
2: 98213 24618 10 
3: 98213 81811 100 


WILT U NOG IETS WIJZIGEN (J/N): J 
NUMMER VAN DE TE WIJZIGEN REGEL : 


Alvorens zo'n overzicht af te beelden kunnen andere gegevens het 
beste van het scherm worden verwijderd. Zo'n 'schone lei' kan ook 
fouten helpen voorkomen als gegevens voor het eerst worden inge- 
typt. In ieder geval zou het scherm na het invoeren van een gege- 
venssserie even gewist moeten worden (zie 8 2.9, bijzondere code- 
getallen). Ook bij grafische formulierafbeeldingen is dit aan te 
bevelen. 


Gebruik gezond verstand 


Controleprocedures kunnen afhankelijk zijn van persoonlijke voor- 
keur, maar ook bijvoorbeeld van bedrijfsrichtlijnen. Hoe dan ook, 
denk als programmeur steeds vooruit en gebruik uw gezond ver- 
stand. Houd rekening met de totale toepassingssituatie. In welke 
vorm en op welk formaat, bijvoorbeeld, worden de gegevens inge- 
voerd? Zijn er beperkingen — misschien zeer subtiele — die aan de 
gegevens kunnen worden gesteld, of zijn er tests waaraan u de 
gegevens kunt onderwerpen om eventuele invoerfouten op te spo- 
ren? 


Wat het gegevensformaat betreft — dat wil zeggen de grootte en 
indeling — verdient het aanbeveling consequent te zijn. Schrijft u 
bijvoorbeeld verschillende programma's waarin persoonsnamen voor- 
komen, gebruik dan steeds dezelfde totale lengte en — voor zover 
van toepassing — dezelfde deelveldlengte. De gebruiker 'went' dan 
aan het formaat, en zal daardoor minder snel fouten maken. Bij 
opslag van de gegevens in een bestand kunnen bovendien verschil 
lende programma's op gemakkelijke wijze van de gegevens gebruik 
maken. In een professionele omgeving zal het formaat van veel 
gegevens — vooral alfanumerieke gegevens zoals adresvelden, 
artikel- of produktcoderingen enzovoort — bij voorbaat vastliggen. 
Uiteraard is het dan van belang hiervan op de hoogte te zijn. 


Voor numerieke waarden — bijvoorbeeld aantallen, geldbedragen 
enzovoort — zal misschien enig 'spitwerk' nodig zijn om grenzen of 
randvoorwaarden waaraan gegevens moeten voldoen te ontdekken. 
Ook hier is het gebruik van gezond verstand geen overbodige luxe, 
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Grenzen of randvoorwaarden kunnen vaak aan de hand van bedrijfs- 
richtlijnen of -procedures, of door gewone ervaringsfeiten worden 
bepaald. In twijfelgevallen kan de uiteindelijke beslissing altijd in 
handen van de gebruiker worden gelegd, zoals in het volgende voor- 
beeld tot uitdrukking komt. 


400 REM 
410 LINE INPUT “VOER PRIJS IN s PS 
420 IF VAL(PS) <= 200.0 THEN 460 
425 PRINT “PRIJS MEER DAN GEBRUIKELIJK MAX, VAN FL.200” 
430 LINE INPUT "IS PRIJS TOCH CORRECT (J/N): “; A$ 
440 IF LEFTS(AS, 1) = "N* THEN 
PRINT "VOER OPNIEUW IN AUB.” : GOTO 410 
450 REM 
460 … 
Overzicht 


Terwille van het overzicht zetten we de algemene invoercontrole- 
procedures voor zowel alfanumerieke als numerieke gegevens op een 
rijtje. 


1. Lees alle gegevens alfanumeriek in (dus door toekenning aan 
stringvariabelen). 


ES) 


Laat gegevens uitsluitend invoeren na een verzoek daartoe van 
de computer door middel van duidelijk gestelde prompts. 


3. Laat per invoeropdracht (en dus per prompt) slechts één gege- 
ven invoeren. 


4, Bent u van plan verschillende deelgegevens in één string onder 
te brengen, voer die deelgegevens dan één voor één in met 
behulp van afzonderlijke stringvariabelen, en voeg ze pas samen 
nadat alle controles zijn uitgevoerd. 


5. Bij de controles dient rekening te worden gehouden met nul- 
string-respons door een lengtetest van het type: 


IF LEN(AS) =0 THEN .……. 


6. Meld bij het ontdekken van een fout niet alleen het nuchtere feit 
op zich, maar omschrijf de fout zo volledig mogelijk. Vraag niet 
slechts om nieuwe invoer. 


7. Controleer alfanumerieke gegevens op juiste lengte met behulp 
van de LEN-functie. 


8. Het kan nodig zijn een ingevoerd gegeven met spaties tot de juis- 
te lengte aan te vullen. Dit geldt vooral voor alfanumerieke 
gegevens. 


9. Test numerieke gegevens — liefst ingevoerd in alfanumerieke 
vorm — uitvoerig in onderstaande volgorde: 
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a. Nulstring-respons (dus onmiddellijk op RETURN of ENTER 
drukken zonder iets in te typen). 


b. Stringlengte, indien van toepassing. 


c. Aanwezigheid van alfabetische of speciale tekens in numerieke 
gegevens (met behulp van VAL of ASC). 

d. Overeenstemming met bedrijfsrichtlijnen en/of bedrijfsmatige 
testwaarden. 


e. Gebruik voor integerwaarden — dat wil zeggen positieve of 
negatieve gehele getallen, inclusief nul — integervariabelen 
(in de meeste BASIC-versies een procentteken na de naam 
van de variabele). 


f. Controleer op integerwaarden met behulp van opdrachten als: 
IF X =INT(X) THEN …. 


g- Zijn negatieve waarden niet acceptabel, controleer daar dan 
op. 


Een en ander lijkt misschien veel werk met zich mee te brengen. 
Realiseer u echter dat de betrouwbaarheid van uw programma staat 
of valt met de betrouwbaarheid van de gegevens. Ga daarom zorg- 
vuldig te werk, en raffel de controles niet zo maar af. Als uw 
BASIC-versie bijvoorbeeld de mogelijkheid biedt in een IF...THEN 
een PRINT -opdracht op te nemen, laat u dan niet verleiden tot kor- 
tere meldingen door gebrek aan ruimte op de regel. Gebruik een 
GOSUB om duidelijke en volledige meldingen te genereren. 


Verdere tips 


1. 


Het kan nuttig zijn alle foutcontroles en meldingen in subroutines 
op te nemen. Dit geeft uw programma netheid en duidelijkheid. 
Verschillende gegevens kunnen mogelijk aan dezelfde controles 
worden onderworpen als aan bepaalde voorwaarden — zoals lengte 
van variabelen — is voldaan. Ook dat pleit voor een subroutine- 
aanpak, 


Wees op uw hoede voor plaatsen in uw programma waar de waarde 
van variabelen aanleiding kan geven tot fouten. Het verschil van 
twee bijna even grote numerieke waarden gebruikt als noemer in 
een deling, bijvoorbeeld: 


LET X=A /(B-C) 


kan leiden tot overschrijding van de getalcapaciteit van de com- 
puter en het stoppen van de RUN. In het gegeven voorbeeld dus 
testen of het verschil tussen B en C nog voldoende groot is! 
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… Pas op voor onverwachte resultaten van functies zoals VAL. Zorg 


dat u de BASIC-versie waarmee u werkt door en door leert ken- 
nen door in proefprogramma's de werking van opdrachten en 
functies onder verschillende omstandigheden uit te pluizen. 


. Het soort fouten dat u krijgt zal grotendeels afhankelijk zijn van 


uw programmeervaardigheid en het toepassingsgebied waarvoor u 
programmeert. Wees daarop attent, en leer van uw fouten. Pro- 
grammeren is voor een belangrijk deel een praktische vaardig- 
heid die alleen te leren is door veel 'doen'. Dit ontwikkelingspro- 
ces wordt overigens geremd als u zich blindstaart op steeds 
dezelfde constructies of technieken. 


… Programma's worden veelal uitsluitend met zinnige gegevens 


getest. Aan de mogelijkheid dat een gebruiker ook wel eens min- 
der zinnige gegevens kan aandragen wordt eenvoudig voorbijge- 
gaan. Als u denkt dat alles getest te hebben, geef dan uw pro- 
gramma eens in handen van een kind dat geen ervaring heeft met 
computers. Overleeft uw programma deze vuurproef, dan mag 
gevoeglijk worden aangenomen dat het wel goed zit met uw pro- 
gramma. Met alle eerbied voor het kind: maak uw programma 
gek-bestendig! 


3.9 TOETSVRAGEN 


. Schrijf een 'IF...THEN'-test die waar is indien: 


(a) een ingevoerd gegeven uit precies 7 tekens bestaat; 

(b) een ingevoerd gegeven niet uit precies 7 tekens bestaat; 

(e) het eerste teken in een ingevoerd gegeven geen cijfer is; 

(d) het eerste teken in een ingevoerd gegeven een cijfer is maar 
geen nul; 

(e) een ingevoerd gegeven geen nulstring is. 


» Schrijf een opdrachtregel waarin wordt gecontroleerd of een 


gegeven uit minder dan 12 tekens bestaat en, zo ja, het gegeven 
met spaties aanvult tot een lengte van precies 12 tekens, 


Schrijf controle-opdrachten om te voorkomen dat invoergegevens 
die cijfers bevatten als geldige invoer worden geaccepteerd. 
Schrijf een bijbehorende subroutine die bij het constateren van 
eijfers wordt aangeroepen, de gebruiker laat zien wat hij invoer- 
de, en die meldt dat een gegeven zonder cijfers moet worden 
ingevoerd. 


. Als het goed is staat u nu voldoende stevig in uw schoenen om 


een module voor de invoer van de meeste soorten gegevens te 


Antwoorden op de toetsvragen 


schrijven, Aan de hand van de volgende vragen kunt u uw 
krachten op dit gebied beproeven. 


(a) Schrijf opdrachten waardoor de gebruiker wordt gevraagd de 


volgende gegevens in te voeren. Uiteraard moeten hierbij 

econtrole-opdrachten worden geschreven. 

1. een alfanumerieke artikelcode van precies 5 tekens; 

2. een artikelnaam van maximaal 12 tekens; 

3. een bestelhoeveelheid van 3 cijfers, met een maximale 
waarde van 288 voor iedere bestelling; 


4. de stukprijs, bestaande uit maximaal 5 posities, en gebon- 


den aan een maximum van S 99,99, 


(b) Berg de onder (a) genoemde gegevens op in één string (A$) 


met de volgende indeling: 


AS = voors luweusens esvelesel.es. (per punt één teken) 


Opmerking: neem geen schuine strepen in de string op. 


(e 


Schrijf opdrachten voor het produceren van een deel van een 


listing waarin de stukprijs, de bestelhoeveelheid en de code 
van een artikel op één regel wordt uitgevoerd. Blader daar- 
bij eens terug in dit hoofdstuk, en probeer uw programma te 


ontluizen alvorens naar onze oplossing te kijken, Er zijn 


namelijk — zoals zo vaak — verschillende wegen die naar Rome 


leiden. Onze weg hoeft niet per se de beste te zijn. 


3.10 ANTWOORDEN OP DE TOETSVRAGEN 


1. (a) IF LEN(AS) = 7 THEN …. 
(b) IF LEN(AS) <> 7 THEN …. 
(e) IF ASC(AS) < 48 AND ASC(AS) > 57 THEN … 
(d) IF LEFTS(AS,I) <> "0" THEN …. 
(e) IF LEN(AS) <> 0 THEN …. 


Uiteraard is een andere string dan AS$ toegestaan. 


2. 120 IF LEN(AS) < 12 THEN LET AS = AS +“ “ : GOTO 120 


Uiteraard is een andere stringvariabele dan A$ en een ander 
regelnummer dan 120 mogelijk . 
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3. 


310 LINE INPUT “NAAM "Ns 
320 FOR X= 1 TO LEN(NS) 
330 IF ASC(MIDS(NS, X, 1)) > 47 AND 

ASC(MIDS(NS, X, 1)) < 58 THEN GOSUB 1100: GOTO 310 


ze NEXT X 


roo PRINT “U HEBT INGEVOERD 
1120 PRINT "VOER OPNIEUW IN ZONDER ciartrs AUB,” 


1130 RETURN 
» 110 REM OPLOSSING VOOR OPGAVE 4, TOETSVRAGEN HOOFDSTUK 3 
114 REM 
AE CLEAR 1000: REM *** GEHEUGENGRENS INSTELLEN EN VARIABELEN OP 
NUL RESP. SPATIE ZETTEN *** 
120 REM 
130 LINE INPUT “VOER ARTIKELCODE IN (5): * 
140 IF LEN(CS) © 5 THEN 
5 PRINT "CODE MOET UIT 5 TEKENS BESTAAN. OPNIEUW AUB.“ _ : GOTO 130 
149 REM 
150 LINE INPUT "VOER ARTIKELNAAM IN (12): *; NS 
160 IF LEN(NS) > 12 THEN 
PRINT “NAAM TE LANG. AFKORTEN TOT MAX. 12 TEKENS AUB." : GOTO 150 
170 IF LEN(NS) < 12 THEN 
LET NS = NS + * * : GOTO 170 
179 REM 
180 Line INPUT “VOER BESTELHOEVEELHEID IN (MAX. 288): 
190 LEN(HS) > 3 _TH 
PRINT "MAX, 3 CIJFERS TOEGESTAAN. OPNIEUW AUB.” : GOTO 180 
200 IF LEN(HS) < 3 THEN 
een : GOTO 200 
210 IF VAL(HS) = 0 
PRINT "rhggra, ALLEEN CIJFERS TOEGESTAAN. * : GOTO 180 
220 IF VAL(HS) > THEN 
PRINT "MAX. ROEVEELKEID IS 288. OPNIEUW AUB.” : GOTO 180 
229 REM 
230 LINE INPUT “VOER STUKPRIJS IN (MAX. 99,99): 
240 IF LEN(PS) > 5 THEN 
PRINT "MAX. 5 TEKENS TOEGESTAAN. OPNIEUW AUB." : GOTO 230 
250 IF LEN(PS) < 5 THEN 
LET PS = PS + * “ : GOTO 250 
260 IF VAL(PS) = 0 THEN 
PRINT "ALLEEN CIJFERS EN/OF PUNT, OPNIEUW AUB.” : GOTO 230 
270 IF VAL(PS) > 99,99 THEN 
ao PRINT "MAX.STUKPRIJS IS 99.99. OPNIEUW AUB.” : GOTO 230 
REM 
290 LET AS =CS$ + NS + HS « PS 
300 REM 
310 cs REM ** MAAK SCHERM SCHOON *** 
320 PRINT vcoDE“, TABÍ15), SHOEVEELHEID®, TAB(30), "STUKPRIJS® 
322 PRINT "--n=", TAB(15), "=rmenmene « TAB(30), "rn 
324 PRINT 
330 PRINT RIGHTS(AS, 5), TAB(15), MIDS(AS, 18, 3), TAB(30), LEFTS(AS, 5) 


340 REM 


4 WERKEN MET SEQUENTIËLE 
BESTANDEN 


40 DOELSTELLINGEN 


Na het doorwerken van dit hoofdstuk moet u in staat zijn numerieke 
en/of alfanumerieke gegevens in sequentiële gegevensbestanden op 
schijfgeheugen (bijvoorbeeld een floppy) of cassettes op te slaan en 
terug te lezen, gebruikmakend van de volgende BASIC-opdrachten: 


— OPEN 

— CLOSE 
— INPUT # 
— PRINT # 
— KILL 


Voor zover deze opdrachten eerder aan de orde zijn geweest komen 
in dit hoofdstuk andere mogelijkheden ter sprake. 


4.1 INLEIDING 


In het kader van dit hoofdstuk zullen we onder een gegevensbestand 
(Engels: data file) een gestructureerde verzameling alfanumerieke 
gegevens verstaan, die door een BASIC-programma kan worden ver- 
werkt. Zo'n bestand kan zich op een magneetschijf bevinden — bij- 
voorbeeld een floppy of op een zogenaamde winchesterschijf — of op 
cassetteband. In dit hoofdstuk bespreken we uitsluitend bestanden 
op magneetschijven. De verschillen met cassettebandbestanden zijn 
echter miniem. Men kan er op ongeveer dezelfde wijze meer werken, 
en vanuit het programma gezien is er eigenlijk geen enkel princi- 
pieel verschil, Mocht u alleen over cassette-opslagmogelijkheden 
beschikken dan is dit hoofdstuk — en de volgende — dus toch 
actueel. 
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Gegevensbestanden 


Tot nu toe was u waarschijnlijk gewend bij iedere 'run' gegevens 
braaf met de hand in te toetsen, en wel naar aanleiding van het uit- 
voeren door de computer van INPUT- of 'LINE INPUT '-opdrachten 
Bij grotere hoeveelheden nam u misschien uw toevlucht tot een com- 
binatie van DATA- en READ-opdrachten. Daardoor kon u zich de 
moeite besparen van het steeds weer intoetsen van dezelfde gege- 
vens. Beide methoden hebben nadelen: met de hand invoeren naar 
aanleiding van INPUT of LINE INPUT is arbeidsintensief, en bij 
DATA/READ zitten de gegevens als het ware vastgebakken in het 
programma. In beide gevallen zijn de gegevens slechts voor het ene 
programma beschikbaar. 


In plaats hiervan kunnen gegevens ook worden ondergebracht in 
een op zichzelf staand bestand. Ze hoeven daarbij maar één keer 
ingetoetst te worden. Bovendien kunnen ze dan door verschillende 
programma's worden benaderd en gebruikt. Een van die program- 
ma's zal waarschijnlijk dienen om de gegevens in het bestand op te 
slaan. Is het bestand eenmaal op schijf of cassetteband vastgelegd, 
dan kunnen andere programma's daarop worden 'losgelaten'. 


Een voorbeeld 


Stel dat u de gegevens van uw persoonlijke adresboekje — met de 
namen, adressen en telefoonnummers van vrienden, kennissen, rela- 
ties, enz. — in een gegevensbestand op schijf wilt onderbrengen. U 
gebruikt daarvoor een speciaal invoerprogramma (hoe u dat kunt 
schrijven zien we verderop in dit hoofdstuk). Met een ander pro- 
gramma zou u dan aan de hand van de persoonsnaam — die daarbij 
als 'zoekeriterium' of 'sleutel' functioneert — telefoonnummers kunnen 
selecteren. Weer een ander programma zou adres- en/of telefoon- 
nummerwijzigingen in het bestand kunnen doorvoeren. Een vierde 
programma zou adresetiketten, bijvoorbeeld in volgorde van post- 
code — kunnen produceren. En zo zouden we nog een tijdje kunnen 
doorgaan. Steeds is er sprake van één bestand dat door verschillen- 
de programma's wordt benaderd. Daarbij worden de gegevens overi- 
gens niet rechtstreeks op het opslagmedium zelf be- of verwerkt. 
Dat deel van een bestand dat het programma op een gegeven moment 
nodig heeft wordt namelijk eerst naar het werkgeheugen (dat wil 
zeggen het interne geheugen) gekopieerd. Eventueel gewijzigde 
gegevens kunnen daarna worden teruggeschreven naar het oor- 
spronkelijke bestand, of naar een nieuwe versie daarvan. 


Programmabestanden 


Al dan niet bewust hebt u waarschijnlijk al enige ervaring met 
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bestanden op schijfgeheugen opgedaan. Bijvoorbeeld bij het opslaan 
of laden van een BASIC-programma met behulp van commando's 
zoals SAVE en LOAD. We spreken hierbij van programmabestanden 
(Engels: program files). Met deze bestanden wordt op een totaal 
andere manier gewerkt dan met gegevensbestanden. De inhoud van 
een programmabestand is een BASIC-programma — of een programma 
in een andere taal — waarop commando's (dus geen taalopdrachten) 
zoals LOAD, RUN, LIST en SAVE kunnen worden losgelaten. De 
inhoud van een gegevensbestand wordt echter verwerkt door middel 
van een programma, dus door opdrachten gesteld in programmeer 
taal. Met die opdrachten kan een gegevensbestand geheel of gedeel 
telijk van het (externe) opslagmedium — de floppy bijvoorbeeld — 
naar het werkgeheugen worden overgebracht, en daar worden ver- 
werkt. Commando's zoals LOAD, RUN, LIST en SAVE kunnen dus 
niet op gegevensbestanden worden toegepast. 


Toetsvraag 


(a) Beschrijf globaal hoe de inhoud van een gegevensbestand kan 
worden benaderd, 

(a) Door een BASIC-programma waarin speciale opdrachten voor het 
werken met bestanden voorkomen. 


4.2 GEGEVENSOPSLAG OP SCHIJFGEHEUGEN 


Voor MSX-computers wordt meestal de Micro Floppydisk van 3} Inch 
gebruikt, Op zo'n schijfje kan, als het zogenaamd 'double density! 
is, toch meer dan 300K bytes (300 x 1024 tekens) worden opgesla- 
gen. Daarnaast zijn voor MSX-computers ook 54-inch drives te ver- 
krijgen. Deze drives gebruiken de bekende diskette, zoals die bij 
veel microcomputers (PC's) gebruikt worden, Een voordeel van 
deze laatste is dat de diskettes 'overdraagbaar' zijn naar systemen 
die draaien onder MS DOS en die werken met GW BASIC. 


Micro Floppies zijn vaak 'enkelzijdig', dat wil zeggen dat slechts 
één kant van het schijfje in de hoes informatie kan bevatten. Bij 54 
diskettes is 'double sided' (tweezijdig) het meest gangbaar. Daar- 
naast kunnen de schijfjes een 'single density' of ‘double density! 
hebben. Dit is de 'dichtheid' waarmee gegevens op de schijfjes 
worden opgeslagen. 
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Voorbeeld 


Als voorbeeld nemen we een single-density 54 inch diskette onder 
de loep. Figuurlijk uiteraard, maar toch ook min of meer letterlijk. 
De schijf blijkt in 45 concentrische cirkels te zijn verdeeld (zie 
figuur 4-1). Die cirkels worden sporen genoemd (Engels: tracks). 
Elk spoor is op zijn beurt onderverdeeld in 10 sectoren, Elke sec- 
tor kan één zogenaamd (fysiek) record bevatten, dat wil zeggen 256 
tekens oftewel bytes*. Voor gegevensopslag zijn bij deze schijf 
ongeveer 215 records beschikbaar. De opslagcapaciteit van de 
gehele schijf is dus circa 215X25 55040 bytes. Bij twee of meer 
schijven ligt de capaciteit per schijf dankzij een geringere 'over- 
head! (dat wil zeggen ruimte nodig voor systeemgebruik, het zoge- 
naamde disk operating system) hoger, namelijk 83000 bytes. 


Andere systemen kunnen uiteraard andere spoor- en/of sector 
indelingen, en, ten gevolge daarvan, andere opslagcapaciteiten 
hebben. 


TRACK 1, SECTOR 4 
DATA 256 BYTES, 


rack SECTOR 
AANDUIDING 
VOOR TRACK 1, 
SECTOR 4 


DRAAIRICHTING 


fig.4-1. Een single-density 54 inch diskette. 


* Op dit begrip komen we straks terug. 
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Het begrip byte 


De 'byte' is een eenheid van geheugenruimte. Dat geldt zowel voor 
het werkgeheugen van de computer als voor externe geheugenmedia 
zoals schijven. Bytes bestaan uit kleinere delen — bits — die een 
binair cijfer (dat wil zeggen O of 1) kunnen voorstellen (Engels: 

bit = binary digit = binair cijfer). Door de bits op een bepaalde wij- 
ze te coderen — een bepaald patroon van enen en nullen te kiezen — 
kan men een byte onder meer een alfanumeriek teken laten voorstel 
len. Een gangbare code daarvoor is het eerder besproken ASCII, de 
onvolprezen American Standard Code for Information Interchange. 


Voor iedere letter van het alfabet, speciaal teken of cijfer dat in een 
BASIC-programma als string wordt opgegeven, bijvoorbeeld in een 
toekenningsopdracht zoals LET B$ = "3", wordt dus één byte geheu- 
genruimte gebruikt. De benodigde geheugenruimte voor het opslaan 
van strings in gegevensbestanden is in principe dus gelijk aan de 
lengte van de string. Verder kunnen enkele bytes nodig zijn voor 
‘huishoudelijke! doeleinden (de zogenaamde overhead). Het precieze 
aantal hangt af van het computertype en het gebruikte opslag- 
medium, 


Toetsvraag 


(a) Hoeveel bytes zijn nodig om de string in onderstaande toeken- 
ningsopdracht op een schijf op te slaan? 


LET N$ = "MOOI WEER VANDAAG!" 
(a) 18, exclusief overhead. Merk op dat ook de spatie een byte in 
beslag neemt. 


Opslag van getallen 


Het berekenen van de opslagruimte voor alfanumerieke gegevens is, 
zoals we hebben gezien, relatief simpel. Elk teken neemt gewoon één 
byte in beslag. Bij numerieke waarden die niet als string worden 
opgegeven ligt het moeilijker. Bovendien kan dit sterk variëren van 
het ene computertype naar het andere. Een en ander hangt af van 
het soort getal en de precisie daarvan. 


Doorgaans kunnen drie verschillende getalsoorten worden onder 
scheiden, elk met een eigen interne representatiewijze of coderings- 
vorm. In de eerste plaats zijn er de zogenaamde integer-getallen, 
dat wil zeggen gehele positieve of negatieve getallen (inclusief nul). 
Daarvoor kunnen integer-variabelen worden gebruikt, aangegeven 
door een procentteken achter de naam (bijvoorbeeld G1%). De 
waarde van deze integer-getallen kan liggen tussen -32768 en 32767, 
Ze nemen steeds twee bytes in beslag. 
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Gebroken getallen kunnen met twee verschillende nauwkeurigheden 
worden vastgelegd. Voor beide nauwkeurigheden bestaat een af zon- 
derlijk gegevenstype: single precision en double precision. Single 
precision getallen hebben in MSX BASIC een nauwkeurigheid van 
maximaal zes significante cijfers. 'Significant' wil zeggen 'echt'. Het 
getal 0.0032, bijvoorbeeld, heeft twee significante cijfers, namelijk 
3en 2, De twee nullen achter het decimaalteken hebben namelijk 
betrekking op de grootte van het getal, niet op zijn precisie. Voor 
single precision getallen zijn vier bytes nodig. De bijbehorende 
variabele wordt aangegeven met een uitroepteken achter de naam, 
bijvoorbeeld G1!. 


Voor double precision getallen geldt bij MSX BASIC een precisie 
van maximaal 16 significante cijfers. Ze nemen acht bytes in beslag. 
De bijbehorende variabele wordt aangegeven zonder toevoeging, 
gewoon G1 dus. 


Standaard werkt MSX BASIC met double precision getallen, vandaar 
dat hiervoor geen extra toevoeging achter de naam van de variabele 
(zoals G1%, G1! of G1$) nodig is. 


Een praktische toepassing 
Als illustratie grijpen we even terug naar het persoonlijke adres- 


boekje van de vorige paragraaf. Voor de in het bestand onder te 
brengen gegevens definiëren we de volgende veldlengten: 


aantal 

gegeven type vorm bytes 
naam alfanumeriek — 20 
straat en huisnummer alfanumeriek — 25 
woonplaats alfanumeriek — 10 
postcode alfanumeriek XXXXbXX N 
telefoonnummer alfanumeriek  XXXbXXXXXX 10 

of 

XXXXXDXXXX 
leeftijd integer en 2 
geboortedatum alfanumeriek XXbXXbXXXX 10 
b = spatie (blank) subtotaal : 84 
X = alfanumeriek teken overhead : kf 


totaal 8 91 
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Toetsvragen 


(a) Hoeveel fysieke records zouden bij deze toepassing nodig zijn 
voor de opslag van de gegevens van 150 relaties? 


(b) Van hoeveel relaties kunnen we op bovenstaande wijze de gege- 
vens onderbrengen op een schijf met een capaciteit van 55000 
bytes? 

(a) Aantal bytes = 91x150 = 13650, aantal fysieke records = 
13650 / 256 = 53.3, afgerond 54 records. 


N.B, Het groeperen van alle 7 gegevens in één lange string zou 
per relatie een besparing van 6 bytes opleveren, in totaal 
dus circa 4 records. 


(b) 55000 / 91 = 604 


Nog enkele begrippen 


Iedere groep van zeven gegevens in bovenstaande toepassing noe- 
men we een (logisch) record*. Een handeling waarbij zo'n record 
als geheel in een gegevensbestand wordt opgenomen noemen we een 
transactie. Gegevens zo groeperen en verwerken maakt het pro- 
grammeren — en ook de structuur van het programma — aanzienlijk 
eenvoudiger. 


Een gegevensbestand waarbij de gegevens als het ware één lange 
doorlopende reeks vormen (het ene record na het andere) en in die 
volgorde moeten worden verwerkt, noemen we een sequentieel 
bestand. We kunnen dat vergelijken met een geluidsband waarop 
achter elkaar muziekstukken — de 'records' — zijn opgenomen. Om 
een bepaald stuk muziek te bereiken moet de band vanaf het begin 
worden afgespoeld. Dat wil zeggen de gegevens moeten in record- 
volgorde — oftewel sequentieel — worden benaderd. 


Voor een gegevensbestand op magneet- of cassetteband gaat deze 
vergelijking aardig op. Bij schijfgeheugens kunnen de records van 
een sequentieel bestand echter in min of meer willekeurige volgorde 
door elkaar liggen. Ze zouden in principe ook rechtstreeks te bena- 
deren zijn, op dezelfde manier als we de naald van een platenspeler 
direct boven een bepaald muziekstuk kunnen zetten. We spreken 
dan van een direct-toegankelijk bestand (Engels: ‘random access! of 


* Opmerking van de vertaler /bewerker: 
De auteurs spreken van 'dataset' in ts van ‘record’. In aansluiting op de 
algemene terminologie in de bestandsorganisatie, en om misverstanden te voor- 
komen ten gevolge van de betekenis die het woord 'dataset' onder meer in IBM- 
kringen heeft, is in dit boek voor de term ‘record' gekozen. Om verwarring 
met de eerder besproken 'fysieke records' oftewel 'blocks' te voorkomen wordt 
hieraan de kwalificatie 'logisch' toegevoegd. 
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‘direct access'). De interne organisatie van het bestand moet daar 
echter wel op gericht zijn. We houden ons voorlopig bij de sequen- 
tiële bestanden, die we ons als een lange aaneengesloten gegevens- 
stroom blijven voorstellen. Ook als ze dat op schijfgeheugen — fysiek 
gezien — niet zijn. In de hoofdstukken 7 en 8 gaan we uitgebreid op 
de direct-toegankelijke bestandsvorm in. 


4.3 KIEZEN TUSSEN SEQUENTIËLE EN 
DIRECT-TOEGANKELIJKE BESTANDEN 


We hebben gezien dat we voor de opslag van een bestand op schijf 
geheugen zowel een sequentiële als een direct-toegankelijke vorm 
kunnen kiezen. Wat zijn nu eigenlijk de voor- en nadelen van deze 
systemen? Welnu, dankzij hun eenvoudige vorm hebben sequentiële 
bestanden het voordeel dat ze minder ruimte innemen. Er is immers 
geen ruimte nodig om de plaats van het ene record ten opzichte van 
het andere aan te geven. Het ene record komt eenvoudig na het 
andere. Daartegenover staat het nadeel dat het betrekkelijk moeilijk 
is een sequentieel bestand te veranderen, oftewel muteren. Ze zijn 
min of meer ontworpen voor de opslag van gegevens die weinig aan 
verandering onderhevig zijn. Anders gezegd, de sequentiële vorm 
is alleen geschikt voor gegevens met een lage mutatiegraad. 


Verder is de tijd die nodig is om een gegeven in een bestand te 
bereiken korter bij direct-toegankelijke bestanden. Om bijvoorbeeld 
het 450-ste record in een sequentieel bestand te bereiken moet de 
computer eerst de voorgaande 449 records doorlopen. Bij direct- 
toegankelijke bestanden kan de computer dat 450-ste record recht- 
streeks bereiken. 


Toetsvraag 


(a) Met welke drie factoren moet men rekening houden bij het kiezen 
tussen de sequentiële en de direct-toegankelijke opslagvorm? 

(a) Efficient gebruik van de beschikbare opslagruimte, verwachte 
mutatiegraad van het bestand, toegangstijd. 


44 HET INITIALISEREN VAN SEQUENTIËLE BESTANDEN 


Bij het gebruik van schijfgeheugens heeft iedere micro een zoge- 
naamd disk operating system (DOS) nodig. In het Nederlands spre- 
ken we van bedrijfssysteem. Dit regelt onder andere het gegevens- 
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transport tussen het interne werkgeheugen van de computer en het 
‘externe! schijfgeheugen. Zoals gezegd wordt dit systeem — op zich 
ook een programma, maar dan in kant-en-klare uitvoerbare machine 
instructies — op een deel van de schijf gehuisvest. Bij MSX-compu- 
ters is het MSX-DOS in het systeem ingebouwd. 


In een MSX BASIC-programma moet worden aangegeven met hoeveel 
bestanden (tegelijkertijd) gewerkt gaat worden. Na MAXFILES = 2 
kunnen twee verschillende bestanden met de buffernummers len 2 
worden geopend. * De grootte van de bestanden hoeft u niet op te 
geven - bij het opslaan van de gegevens wordt zonodig steeds een 
block toegevoegd. 


De OPEN-opdracht voor sequentiële bestanden 


Om een file te gebruiken moet hij vanuit het BASIC-programma wor- 
den 'geopend'. Daarvoor bestaat een speciale opdracht: de OPEN. 
Deze opdracht 'vertelt' de computer welke bestanden het programma 
nodig heeft en op welke wijze ze worden gebruikt. Hij kan het beste 
in het initialisatiedeel van het programma worden opgenomen. 


In MSX BASIC ziet de OPEN-opdracht voor sequentiële bestanden er 
in zijn algemeenheid zo uit: 


OPEN naam FOR mode A$ bufnum 


Hierin is OPEN een vaste term (keyword of sleutelwoord) die letter 
lijk wordt vermeld, De drie andere onderdelen van de opdracht wor- 
den door de programmeur bepaald. Daarbij geldt het volgende, 


1. Naam. Als eerste onderdeel van de OPEN-opdracht wordt de 
naam van het te openen bestand aangegeven. Dit kan met een 
alfanumerieke constante of variabele plaatsvinden. 
voorbeeld : 

140 OPEN "NAAMI" 
of: 


144 LINE INPUT "NAAM VAN BESTAND: "; N$ 
150 OPEN NS 


2. Mode. Hiermee wordt de gebruikswijze van het bestand aangege- 
ven, De mogelijkheden zijn weergegeven in de volgende tabel. 


* De zogenaamde 'default' of verstekwaarde — dat wil zeggen de standaardwaarde 
die het systeem hanteert als u niets opgeeft - hierbij is 1. 


96 Werken met sequentiële bestanden 
mode betekenis 
INPUT : Invoermode voor sequentieel bestand, 
Gegevens worden van schijf gelezen en naar het werk- 
geheugen overgebracht. 
OUTPUT: Uitvoermode voor sequentieel bestand, 
Gegevens worden van het werkgeheugen overgebracht 
naar het schijfgeheugen. 
APPEND : Toevoegen aan einde van een bestaand sequentieel 
bestand. 
De OPEN-opdracht voor een 'random' (= direct toegankelijk) 
bestand wordt behandeld in hoofdstuk 7. 
voorbeeld: 
140 OPEN "LEDEN" FOR INPUT … 
140 OPEN "ARTI" FOR OUTPUT … 
140 OPEN N$ FOR APPEND 
3. Bufnum. Recordtransport tussen werk- en schijfgeheugen vindt 


blockgewijs plaats via een buffergebied in het werkgeheugen. Dit 
gebied is 256 bytes groot en kan dus precies één block bevatten. 
Bij een leesopdracht van schijf worden de gegevens eerst in dit 
gebied ondergebracht. Van daaruit zijn ze beschikbaar voor ver- 
werking door het programma. Omgekeerd worden de gegevens bij 
wegschrijven naar schijf eerst in zo'n buffergebied verzameld. 
Pas als de buffer vol is worden de gegevens daadwerkelijk naar 
schijf weggeschreven (zie fig.4-2). Voor ieder bestand dat op 
een gegeven moment open is moet een buffer aanwezig zijn. Zo'n 
buffer wordt door middel van een getal van 1 t/m 15 als tweede 
onderdeel van de OPEN-opdracht — dus op de plaats van 'bufnum' 
in de algemene vorm hierboven — vastgelegd. Let wel: dit getal 
dient als identificatienummer van de buffer en heeft niets met 
aantallen buffers te maken. Het aantal wordt opgegeven met 
MAXFILES =n, 


voorbeeld: 

140 OPEN "NAAMI" FOR APPEND AS 1 
of: 

142 INPUT "BUFFERNUMMER: "; B 
150 OPEN "NAAMI" FOR OUTPUT AS B 


Merk op dat het buffernummer een geheel (= integer) getal is, en 
dat daarom een integer-variabele (B%) wordt gebruikt. In plaats 
van 1 mag ook #1 als buffernummer gebruikt worden, 
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In MSX BASIC kan eventueel een specificatie van de schijfeenheid, 
waarop het bestand aanwezig is, aan de naam voorafgaan, Bijvoor- 
beeld: B:NAAMI, Bovendien kan de naam gevolgd worden door een 
facultatieve extensie, bijvoorbeeld NAAMI.ABC. De naam zelf mag 
maximaal uit 8 tekens bestaan, de uitbreiding uit maximaal 3. 


Tot zover de vorm van de OPEN. Over het gebruik daarvan ten 
slotte nog enkele opmerkingen. Een bestand dat voor invoer wordt 
geopend (INPUT -mode) moet op dat moment uiteraard wel bestaan. 
Is het bestand op het moment van openen niet aanwezig dan volgt 
een foutmelding. Verder zal het duidelijk zijn dat een bestand wordt 
gecreëerd door in OUTPUT-mode te openen met een naam die nog 
niet eerder is gebruikt, bijvoorbeeld: 


180 OPEN "KLAD" FOR OUTPUT AS 2 
Maar let op: bestaat er al een bestand met de aangegeven naam, dan 


gaat in OUTPUT-mode de gehele inhoud van het bestand op het 
moment van openen verloren! 


Onthouden dus: Het heropenen van een bestand in OUTPUT-mode 
resulteert in vernietiging van de inhoud van dat 
bestand! 


schuur 


Î 


gurrens 


#2 1S INPUTBUFFER 
A1 1S OUTPUTBUFFER 


fig.4-2, Gegevenstransport via buffers. 


Toetsvragen 


(a) Schrijf een opdracht om een sequentieel bestand met de naam 
TELNUM voor invoer via buffer 6 te openen. 


(b) Schrijf opdrachten om een sequentieel bestand voor invoer te 
openen, waarbij de naam van het bestand via dialoog wordt 
opgegeven en het buffernummer 2 is. 
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(e) Open een sequentieel bestand voor invoer, waarbij naam en buf- 
fernummer via dialoog worden opgegeven. 


(a) 110 OPEN “TELNUM" FOR INPUT AS 6 


(b) 140 LINE INPUT "NAAM VAN HET BESTAND: “; NS 
150 OPEN NS FOR OUTPUT AS 2 


(e) 210 LINE INPUT "NAAM VAN HET BESTAND: "; NS 
220 INPUT "BUFFERNUMMER: "; BX 
230 OPEN N$ FOR INPUT AS Bi 


De CLOSE-opdracht 


Ieder bestand dat met een OPEN-opdracht is geopend, dient vóór 
beëindiging van het programma met een bijbehorende CLOSE- 
opdracht te worden afgesloten. 


De CLOSE heeft de volgende algemene vorm: 
CLOSE bufnum 


waarbij bufnum uit één of meer buffernummers, onderling geschei- 
den door komma's, bestaat. Het buffernummer moet uiteraard het- 
zelfde zijn als het buffernummer waaronder de desbetreffende file 
werd geopend. 


Uitvoering van een CLOSE-opdracht heeft tot gevolg dat eventueel 
nog in de buffer aanwezige gegevens zonodig worden weggeschre- 
ven naar schijf (hierover straks meer) en dat de bufferruimte wordt 
vrijgegeven. Hetzelfde buffernummer kan daarna voor een ander 
bestand worden gebruikt. 


enkele vcorbeelden: 


800 CLOSE 1 Afsluiten en vrijgeven van buffer 1. 
820 CLOSE 1, 4, 3 Afsluiten en vrijgeven van buffers 1, 4 en 3 
860 CLOSE Afsluiten en vrijgeven van alle op dat 


moment geopende files. 


Het buffer-probleem 


We zagen dat de buffer als tussenstation fungeert tussen werk- en 
schijfgeheugen. Schrijft u uitvoergegevens weg naar schijf, dan 
komen die dus eerst in de buffer terecht. Pas als de buffer hele- 
maal vol is (256 bytes) worden de gegevens naar schijf getranspor- 
teerd, en het bestand bijgewerkt. 
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Wat gebeurt er nu als de buffer maar gedeeltelijk gevuld is, terwijl 
er verder geen gegevens meer zijn om weg te schrijven? U zou kun- 
nen verwachten dat de inhoud van de gedeeltelijk gevulde buffer 
gewoon naar schijf wordt overgebracht. Maar helaas, de laatste 
loodjes blijken bijzonder zwaar te wegen. De resterende gegevens 
worden namelijk pas weggeschreven bij uitvoering van een CLOSE- 
opdracht voor het desbetreffende buffergebied. De CLOSE 'schoont' 
dus als het ware de buffer (Engels: to flush = schonen, 'doorspoe- 
len'). Zo'n CLOSE is dus van essentieel belang voor de integriteit 

— de nauwkeurigheid en betrouwbaarheid — van het bestand. 


Over loodjes gesproken: mocht uw programma ten gevolge van een 
of andere fout het loodje moeten leggen en met een gedeeltelijk 
gevulde buffer voortijdig afbreken (aborteren), dan kan in direct- 
mode* een CLOSE worden gegeven. De resterende gegevens worden 
dan alsnog overgeheveld naar schijf. Zo'n noodsprong pleit echter 
niet voor de kwaliteit van het programma, en zou in een professio- 
bele omgeving onaanvaardbaar zijn. Verderop in dit hoofdstuk zul- 
len we zien hoe dit soort problemen te vermijden zijn. 


Toetsvraag 
(a) Welke functies heeft een CLOSE-opdracht? 


(a) De computer te dwingen zijn bufferinhoud naar schijf te schrij- 
ven, en de bufferruimte vrij te geven. 


Tenslotte nog enkele opmerkingen. Volgens de MSX gebruikershand- 

leiding wordt een buffer onder normale omstandigheden automatisch 

geschoond bij programma-beëindiging bij: 

= een STOP- of END-opdracht; 

= een technische fout van de schijfeenheid (disk error); 

— het geven van een RUN-, NEW- of CLEAR-opdracht door de 
gebruiker; 

— toevoegen of verwijderen van een programmaregel. 


U doet er echter goed aan hier niet op te vertrouwen. Ook niet als 
u een ander BASIC-systeem met soortgelijke voorzieningen gebruikt. 
Laat bewust een geprogrammeerde CLOSE vóór beëindiging van het 
programma uitvoeren, of geef in noodgevallen een CLOSE in direct- 
mode. 


Verder is het van belang dat u nooit ofte nimmer een schijf van de 
aandrijfeenheid verwijdert als zich daarop nog een geopend bestand 
bevindt. Overtuig u ervan dat het bestand netjes met een CLOSE is 
afgesloten. In twijfelgevallen kan altijd een directe CLOSE worden 
gegeven. 


* 'Direct-mode' wil zeggen een opdracht invoeren zonder regelnummer, afgesloten 
met RETURN. De opdracht wordt dan rechtstreeks uitgevoerd. 
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Toetsvraag 


(a) Wat moet u doen als een programma, dat bezig was gegevens 
naar een schijf weg te schrijven, voortijdig zonder CLOSE 
afbreekt? 

(a) Het bestand alsnog afsluiten met een CLOSE-opdracht in direct 
mode. 


4.5 SCHRIJVEN NAAR EEN SEQUENTIEEL BESTAND 


In het voorgaande hebt u geleerd met behulp van de OPEN-opdracht 
een verbinding tot stand te brengen tussen de computer en een 
bestand op schijfgeheugen. Met de CLOSE-opdracht kon u die ver- 
binding verbreken, In deze paragraaf leert u hoe u gegevens in 
zo'n schijfbestand kunt opslaan. In MSX BASIC is dit met een spe- 
ciale vorm van de PRINT-opdracht te doen. Deze is gelijk aan de 
bekende PRINT, maar dan met een 'hekje' (#) en een nummer na 

het sleutelwoord PRINT. Het nummer slaat op de buffer. 


De PRINT #-opdracht wordt in principe op dezelfde wijze gebruikt 
als de gewone PRINT, bijvoorbeeld: 


240 PRINT #1, A, B, C 


Deze regel heeft tot gevolg dat de waarden, die aan de numerieke 
variabelen A, B en C zijn toegekend, naar schijf worden wegge- 
schreven via buffer 1, Het buffernummer kan in de PRINT #- 
opdracht in de vorm van een variabele worden meegegeven, bijvoor- 
beeld: 


270 LET X = 3 
280 PRINT #X, A, B, C 


Essentieel hierbij is uiteraard dat aan de variabele vooraf het 
gewenste buffernummer is toegekend. 
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Een voorbeeld 


Het volgende programma schrijft gegevens naar een bestand op 
schijf, te beginnen bij het eerste block. Omdat het bestand in O- 
mode wordt geopend gaan gegevens, die eventueel al op de schijf 
aanwezig waren, verloren. 


100 REM * DEMONSTRATIE SCHRIJVEN NAAR SCHIJFBESTAND 
REM 


110 

120 OPEN "DEMO1" FOR OUTPUT AS 1: REM *** OF BIJV. “B:DEMO1" *** 
130 REM 

200 REM * LEES GEGEVENS EN SCHRIJF WEG 

210 REM 

220 READ A, B, C 

230 IF A = -1 THEN 990: REM: CHECK OP EINDE GEGEVENS 
240 PRINT #1, A; B; C 

250 GOTO 220 

260 REM 

900 REM * GEGEVENS VOOR DEMO 

910 DATA 23, 26, 18, 22, 20, 19 

920 REM 

930 REM * VLAG VOOR EINDE GEGEVENS (AFSLUITWAARDEN ) 

940 DATA -1, -1, -1 

950 REM 

BO REM * SLUIT BESTAND AF EN STOP 

990 CLOSE 1 

999 END 


Het bestand bevat na afloop: 


23 26 18 
22 20 19 


Merk op dat in regel 240 puntkomma's zijn gebruikt om de uitvoer- 
variabelen A, B en C te scheiden. In plaats daarvan kunnen ook 
komma's worden toegepast, bijvoorbeeld: 


240 PRINT #1, A, B, C 


Dit heeft tot gevolg dat er tussen de opgeslagen gegevens op schijf 
meer ruimte ontstaat. De komma functioneert namelijk als een soort 
tabulator, zoals die ook wel op schrijfmachines voorkomt. Het effect 
is overigens hetzelfde als bij een gewone PRINT naar het scherm 
van de computer. Ook daarbij treedt een 'tab'-effect op bij gebruik 
van komma's. 


Advies: 
Gebruik bij de PRINT #-opdracht puntkomma's als scheidingsteken 
tussen uitvoervariabelen. Dit bespaart schijfruimte. 


N.B. Direct na het buffernummer mag geen puntkomma staan. 
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Toetsvraag 


(a) Schrijf een opdracht die de waarden van de variabelen J, K en 
L via buffer 3 wegschrijft naar schijf . 


(a) 160 PRINT #3, Js; Ks; L 


Wegschrijven van alfanumerieke gegevens 


Om gegevens later correct van schijf te kunnen teruglezen is het 
uiteraard van belang dat ze op de juiste wijze zijn weggeschreven. 
Bij numerieke gegevens is dat niet zo'n probleem. Gebruik gewoon 
puntkomma's tussen de uitvoervariabelen en behalve de eerder 
genoemde ruimtebesparing zult u de gegevens ook zonder problemen 
kunnen teruglezen. 


Bij alfanumerieke gegevens ligt dat moeilijker. Om dat te demonstre- 
ren nemen we het volgende voorbeeld onder de loep. 


220 LINE DEE rj "NS 
230 PRINT # 

240 LINE eir” EEL EFOOMUWER: *; TS 
250 PRINT #1, TS 

260 LINE meùr “LEEFTIJD: "; LS 


270 PRINT #1, L$ 


In dit programmadeel wordt iedere string met een afzonderlijke 
PRINT # weggeschreven. In het bestand zelf worden de opeenvol 
gende strings automatisch met een 'carriage control' teken (ASCII- 
code 013 decimaal) gescheiden. Bij deze — primitieve — structuur 
levert het teruglezen geen moeilijkheden op. Het ligt echter voor de 
hand zulke gegevens te combineren tot één record. Maar dat zou op 
zijn beurt tot gevolg hebben dat de computer als het ware alle 
gegevens aan elkaar 'plakt'. Schrijven we dus in bovenstaand voor- 
beeld in plaats van regels 230, 250 en 270: 


270 PRINT #1, N$; TS; L$ 


met N$ = "GERARD", T$ = "012-345678" en L$ = "25", dan resul- 
teert dit in het volgende record-'beeld' (Engels: image) op schijf: 


GERARDO012-34567825 


Ruimtebesparend — dat wel — maar het is niet zo eenvoudig om hier 
de oorspronkelijke deelstrings weer uit te filteren! Dit probleem 
kunnen we voorkomen door bij het wegschrijven komma's op te 
nemen (als het ware te forceren) tussen de verschillende gegevens. 
Dat is eenvoudig te doen door tussen de uitvoervariabelen in de 
PRINT #-opdracht een komma als alfanumerieke constante te plaat- 
sen. Dus: 
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270 PRINT #1, NS; ","; TS; “,“; LS 
Het bijbehorende recordbeeld wordt dan: 
GERARD ,012-345678, 25 


Tenslotte nog een geniepigheidje. Stel dat met een READ-opdracht 
gegevens vanuit een DATA-opdracht zoals: 


920 DATA BALLPOINTS, VILTSTIFTEN, POTLODEN 


worden gelezen en daarna worden weggeschreven. In dat geval kan 
aan het einde van de laatste string (POTLODEN) onbedoeld een 
‘carriage control' teken in het recordbeeld terechtkomen. Dit is te 
voorkomen door bij de laatste string aanhalingstekens te gebruiken, 
dus "POTLODEN". Terwille van de netheid verdient het dan aanbe- 
veling ook alle andere gegevens in de DATA-opdracht tussen aanha- 
lingstekens te schrijven. 


Toetsvraag 


(a) Schrijf programma-opdrachten om alle strings in regel 920 (zie 
boven) in te lezen en vervolgens via buffer 2 in een bestand op 
te slaan. 


(a) 240 READ N1$, N2$, N3$ 
250 PRINT #2, NIS; ","; N25; ","; 


Aanhalingstekens forceren 


We zagen zojuist dat het zinvol kan zijn bij het wegschrijven naar 
schijf komma's tussen de verschillende deelstrings van een record 
te forceren. Daardoor kunnen die deelstrings later zonder proble- 
men worden teruggelezen. Maar wat moeten we doen als de komma 
zelf deel uitmaakt van de string? Bijvoorbeeld: 


240 LET NS = "VAN DEN BOSCH, G.J.M." 


Bij het wegschrijven van deze string komt alleen de tekst tussen 
de aanhalingstekens in het bestand terecht. De aanhalingstekens 
zelf hebben namelijk alleen syntactische betekenis (dat wil zeggen 
hebben alleen betrekking op de vorm van het programma) en wor- 
den daarom bij het wegschrijven achterwege gelaten. Ten gevolge 
hiervan gaan de achternaam en de voorletters als het ware een 
afzonderlijk bestaan leiden — het worden in feite twee verschillende 
alfanumerieke constanten. We zullen dus zelf moeten zorgen voor 
aanhalingstekens. Maar hoe? Aanhalingstekens forceren op dezelfde 
manier als met komma's — dus met drie opeenvolgende aanhalingste- 
kens — gaat in verband met syntactische problemen niet op. Het 
BASIC-systeem ziet de vorm """ (dat wil zeggen drie opeenvolgende 
dubbele aanhalingstekens) namelijk als een nulstring ("") gevolgd 
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door een los aanhalingsteken. Dit laatste teken zal normaal gespro- 
ken niet in de context van de opdracht passen en dus aanleiding 
geven tot een SYNTAX ERROR. 


De oplossing hiervoor is een kunstgreep toe te passen, en wel in de 
vorm van de CHRS$-functie. Het ASCII-codegetal voor het aanha- 
lingsteken is 34. Door CHR$(34) in de PRINT-opdracht op te nemen 
kunnen we toch een aanhalingsteken forceren. Het voorbeeld wordt 
dan : 


240 LET NS = "VAN DEN BOSCH, G.J.M." 
250 PRINT #1, CHRS(34); NS; CHRS(34) 


Maar we zijn er nog steeds niet. Schrijven we namelijk in één record 
meer gegevens op deze wijze weg, dan moeten ze onderling ook weer 
met komma's worden gescheiden. Dus: 


250 PRINT #1, CHRS(34); NS; CHRS(34); “,"; CHRS(34); TS; CHRS(34) 


Een hele kerstboom — toegegeven — maar wel noodzakelijk ! 


Voorbeelden 


150 INPUT “ARTIKELNUMMER: *; 
160 INPUT “PRIJS 

170 INPUT "HOEVEELHEID 
210 PRINT #3, N; P; H 


zoz 


Merk op: puntkomma's tussen numerieke variabelen. 


430 LINE INPUT “KLANTNUMMER 
440 LINE INPUT “DATUM 
450 PRINT #3, K$; “‚"; DS 


Ks 
Ds 


Merk op: geforceerde komma tussen stringvariabelen. 


600 LINE INPUT "NAAM (EERST ACHTERNAAM): *; NS 
610 LINE INPUT “GEBOORTEDATUM Ds 
620 PRINT #3, CHRS(34); NS; CHRS(34); "‚"; DS 


Merk op: aanhalingstekens geforceerd aan weerszijden van N$ (een 
variabele die een komma kan bevatten). 


700 LINE INPUT "SALARISNUMMER: "; NS 
710 INPUT “TARIEFGROEP  : TT 
120 INPUT “BRUTO JAARINKOMEN: "; S 


730 PRINT #3, NS; *‚"; T; 5 


Merk op: tussen gemengde gegevens (numeriek /alfanumeriek) een 
geforceerde komma na de string (niet altijd nodig, maar 
wel aan te bevelen). 
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Toetsvragen 


(a) Schrijf met PRINT-opdrachten alle met behulp van onderstaande 


opdrachten ingevoerde gegevens naar schijf via buffer 3. 


300 INPUT “TOTAAL AANTAL MONSTERS 
310 INPUT “AANTAL GROENE MONSTERS 


320 PRINT „ssoncossovonsseseeudsservenvnrsdneernadcnsnren 


500 LINE INPUT "NAAM 
510 LINE INPUT “ADRES 
520 LINE INPUT “WOONPLAATS 


800 LINE INPUT “TITEL, INCL, LEESTEKENS: "; T$ 


810 LINE INPUT "EERSTE TEKSTREGEL : *; RIS 
820 PRINT . 

900 LINE INPUT “TITEL VAN BOEK „18 
910 LINE INPUT “AUTEUR (EERST ACHTERNAAM): *; AS 
920 INPUT “AANTAL BLADZIJDEN 1 B 
930 PRINT 


(a) 320 PRINT #3, M; G 
530 PRINT #3, N$; "‚"; AS; "‚"; WS$ 
B20 PRINT #3, CHR$(34); TS; CHRS(34); ","; CHRS(34); RIS; CHRS(34) 
930 PRINT #3, T$; "‚"; CHRS(34); A$; CHRS(34); "‚"; B 


MSX apparatuur. Foto Philips. (Idem blz. 106) 
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Werken met sequentiële bestanden 


Een voorbeeld: inventarisprogramma (1) 


Het gebruik van bestanden eist planning. Punten waarmee rekening 
moet worden gehouden zijn onder andere: 


Ï: 


a 


Wat moet wel en wat niet in een record worden opgenomen? 

Hoe groot zijn de afzonderlijke gegevens die in een record moe- 
ten worden opgenomen? 

Hoe groot moet het record als geheel worden? 

Hoe groot kan het bestand als geheel worden? 

Is er speciale aandacht nodig voor het scheiden van deelvelden 
binnen een record? 


. Nauwkeurigheid en geldigheid van de in het bestand op te nemen 


gegevens. 
Afsluiting van het bestand. 


Als voorbeeld geven we een programma waarin enkele van deze 
aspecten verwerkt zijn. Met het programma kan een inventarisbe- 
stand voor zakelijk of privé-gebruik worden samengesteld. Het pro- 
gramma bevat onder andere een (kleine) inleidende module en — met 
het oog op punt 6 — een module voor gegevensverificatie. Voor 
demonstratiedoeleinden is opzettelijk een fout gemaakt waarop 
straks wordt ingegaan. 


REM PROGRAMMA VOOR HET AANMAKEN VAN EEN INVENTARISBESTAND 
REM 

REM _ VARIABELEN 

REM = V$ : OMSCHRIJVING VOORWERP 

REM : AANTAL STUKS 

REM = W__ : WAARDE PER STUK 

REM = A$ : HULPVARIABELE T.B.V. DIALOOG 
REM 

REM BESTANDEN 

REM = SEQUENTIEEL BESTAND OP FLOPPY 

REM 
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200 REM _INITIALISEREN 


205 REM 
210 OPEN “INVENT" FOR OUTPUT AS 1: REM *** OF BIV, "B: INVENT" *** 
220 REM 
230 REM GEGEVENSINVOER 
235 REM 
240 LINE INPUT "OMSCHRIJVING (MAX. 20 TEKENS): "; VS 
250 IF LEN(VS) > 20 THEN 
PRINT “"AFKORTEN TOT MAX, 20 TEKENS AUB" : GOTO 240 
260 IF LEN(VS) = 0 THEN 
PRINT “OMSCHRIJVING OPGEVEN AUB" : GOTO 240 
265 IF LEN(VS) < 20 THEN VS = VS +" " : GOTO 265 
270 INPUT “AANTAL STUKS hel & 
280 IF N © _INT(N) THEN 
PRINT “ALLEEN GEHELE GETALLEN AUB" : GOTO 270 
290 IF N <= 0 THEN 
PRINT “AANTAL OPGEVEN AUB" GOTO 270 
300 INPUT "GELDWAARDE PER STUK 8 MN 
310 IF W <= O THEN 350 
315 REM 
316 REM _WEGSCHRIJVEN NAAR BESTAND EN HERHALEN 
317 REM 
320 PRINT #1, VS; "‚"; N, W 
330 GOTO 240 
340 REM 
341 REM CHECK OP WAARDE 
342 REM 
350 LINE INPUT "WAARDE <= 0, OK? (J/N) 1 “AS 
360 IF LEFTS(AS,1) = "N" THEN 
PRINT “DAN OPNIEUW INVOEREN AUB" : GOTO 300 
370 GOTO 320 
380 REM 
400 REM BESTAND AFSLUITEN EN STOPPEN 
405 REM 
410 CLOSE 1 
420 REM 
999 END 
Toetsvraag 


(a) Dit programma bevat een fout. Welke? 

(a) De CLOSE-opdracht in regel 410 — nodig voor het schonen van de 
buffer — kan nooit worden uitgevoerd. In de volgende paragraaf 
gaan we hier verder op in. 


Afsluiten van het bestand 


Zoals gezegd is het afsluiten van het bestand één van de aspecten 
waarmee tijdens de planning rekening moet worden gehouden. Daar- 
bij moet onder meer worden bepaald hoe de gebruiker te kennen kan 
geven dat hij klaar is met invoeren. In het bovenstaande voorbeeld 
zou dit kunnen uitkristalliseren in een van de volgende construc- 
ties: 


238 PRINT "TYPE STOP OF GEEF" 
245 IF LEFTS(V$,4) = "STOP" THEN 410 
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of: 


325 LINE INPUT "NOG MEER GEGEVENS (J/N): “; A$ 
326 IF LEFT$(V$,1) = "N" THEN 410 


Tenslotte twee punten waaraan we nog even herinneren. Ten eerste: 
bij het openen van een sequentieel bestand voor uitvoer (FOR OUT- 
PUT) worden eventueel reeds aanwezige gegevens vernietigd. Toe- 
voegen aan een bestand dat eenmaal bestaat gaat eenvoudig met 
APPEND. We zullen daar verder op ingaan in hoofdstuk 5, In de 
tweede plaats: vergeet niet uw programma te documenteren, Vooral 
een beschrijving van de opbouw van de gebruikte bestanden kan u 
later goed van pas komen! 


Toetsvraag 


(a) Waarom is het nodig de computer te informeren dat alle gegevens 
voor een bestand zijn ingevoerd? 


(a) Zodat het bestand met een CLOSE kan worden afgesloten. 


4.6 TERUGLEZEN VAN GEGEVENS UIT EEN 
SEQUENTIEEL BESTAND 


Nu we weten hoe gegevens weg te schrijven naar een sequentieel 
bestand, kunnen we de omgekeerde weg gaan be(w)(h)andelen: 
gegevens teruglezen uit een reeds aangemaakt bestand. Hierbij is 
het belangrijk te weten hoe de gegevens oorspronkelijk werden weg- 
geschreven. Het teruglezen kan dan op betrekkelijk eenvoudige 
wijze plaatsvinden. 


Om een bestand te kunnen lezen moet het eerst voor invoer (INPUT ) 
worden geopend. Lezen kan daarna met de INPUT #-opdracht 
plaatsvinden. 


voorbeeld: 


350 OPEN "BEST" FOR INPUT AS 2 
360 INPUT #2, A, B, C 


Ten gevolge van regel 360 worden drie gegevens van buffer 2 inge- 
lezen, en toegekend aan de variabelen A, B, C. In principe moet 
het type van de variabelen (numeriek of string) in de INPUT fe 
opdracht overeenkomen met het type van de gegevens die vanuit het 
bestand worden ingelezen. Is het eerstvolgende gegeven in het 
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bestand bijvoorbeeld numeriek, dan moet de variabele die op dat 
moment in de INPUT #-opdracht aan de orde is eveneens numeriek 
zijn. Is dit niet het geval dan kunnen er, inhoudelijk gezien, com- 
plicaties optreden. 


Technisch gezien maakt het echter weinig uit of een 'binnenkomend' 
gegeven als numerieke waarde dan wel als string werd weggeschre- 
ven, Er ontstaat weliswaar een waarschuwing als men probeert een 
numerieke waarde uit het bestand toe te kennen aan een string- 
variabele in de INPUT #-opdracht, maar de toekenning gaat wel 
door. In het omgekeerde geval — het bestandsgegeven is een string 
terwijl in de INPUT #-opdracht een numerieke variabele aan de 
beurt is — wordt zonder protest de waarde nul toegekend. Het pro- 
gramma stopt in geen van beide gevallen. 


De vraag doet zich voor of dat wel gunstig is. Het probleem van een 
programmastop met een geopend bestand wordt wel omzeild, maar er 
komt een nieuw probleem voor in de plaats, namelijk ongeldige gege- 
vens. En dat na alle moeite die bij het invoeren (hopelijk .……) is 
gedaan om uitsluitend correcte gegevens in het bestand op te 
nemen. Vandaar dat we er eigenlijk toch niet omheen kunnen om 
precies te weten hoe de gegevens oorspronkelijk werden wegge- 
schreven, dat wil zeggen numeriek of alfanumeriek, en in welke 
volgorde. Van strings moeten we bovendien de lengte kennen. 


We keren nu even terug naar het inventarisprogramma van de vorige 
paragraaf. Daarbij werden steeds drie gegevens weggeschreven: 
een alfanumerieke voorwerpomschrijving (V$), gevolgd door een 
hoeveelheid (N) en een geldwaarde (W). Deze variabelen functio- 
neerden uiteraard als opslagruimte voor de weg te schrijven waar- 
den, dat wil zeggen niet de variabelen zelf maar hun waarden waren 
van belang. Bij het teruglezen kunnen we dus zonder bezwaar 
andere variabelen gebruiken als bestemming voor de binnenkomende 
gegevens. De enige voorwaarde is dat het type van de variabele 
(‘normaal gesproken’) moet overeenkomen met het type van het 
gegeven. 


Toetsvraag 


(a) Welke van de volgende opdrachten kunnen we gebruiken om 
gegevens van het inventarisbestand van $ 4.5 in te lezen? 
(1) 270 INPUT #1, A, B, C 
(2) 270 INPUT #1, AS, B, C 
(3) 270 INPUT #1, A, BS, CS 


(a) Opdracht 2 
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Een voorbeeld: inventarisprogramma (2) 

Het volgende programma leest gegevens van het bestand geprodu- 
ceerd door inventarisprogramma 1 (zie $ 4.5), en maakt daarvan 
een eenvoudig overzicht. 


100 REM LEES GEGEVENS UIT INVENTARISBESTAND 


110 REM 
120 REM _ VARIABELEN 
130 REM = BS; BESCHRIJVING VOORWERP 


140 REM =H : HOEVEELHEID 
150 REM = G : GELDWAARDE 


160 REM 

170 REM BESTANDEN 

180 REM = INVENT, SEQUENTIEEL, FLOPPY 
190 REM 

200 OPEN “INVENT" FOR INPUT AS #1 
210 REM 

215 REM DRUK KOP AF VAN OVERZICHT 

220 REM 

225 PRINT "OMSCHRIJVING"; TAB(22); "AANTAL"; TAB(30); "WAARDE" 
230 PRINT 

240 REM 

250 REM GEGEVENS INLEZEN VAN BESTAND EN AFDRUKKEN 
255 REM 

260 INPUT #1, BS, H‚ G 

270 PRINT B$; TAB(22); H; TAB(30); W 
280 GOTO 260 

290 REM 

300 REM BESTAND AFSLUITEN EN STOPPEN 
305 REM 

310 CLOSE 

315 

999 END 


De uitvoer zou kunnen zijn: 


OMSCHRIJVING AANTAL WAARDE 
STOELEN 4 120.0 
TAFEL 1 250.0 
LAMP 1 69.5 
SCHILDERIJ 1 300,0 
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End-of-file 


Het bovenstaande programma bevat een onvolkomenheid. De RUN 
eindigt namelijk met de melding INPUT PAST END IN 260. De strek- 
king hiervan is dat we als het ware proberen voorbij het einde van 
het bestand te lezen. Het programma wordt daarbij afgebroken. In 
ons geval is dat geen ramp, omdat de fout pas optreedt als we klaar 
zijn met het afdrukken van de lijst, Maar stel dat we na het afdruk- 
ken van die lijst meer hadden willen doen. Dan zouden we van te 
voren — dat wil zeggen vóórdat we proberen te ver te lezen — moe- 
ten weten dat het einde van het bestand is bereikt. 


Gelukkig bestaat daar inderdaad een mogelijkheid voor: de EOF- 
functie (EOF = end-of-file = einde bestand). Om de werking van die 
functie duidelijk te maken moeten we eerst even stilstaan bij het 
begrip 'wijzer' (Engels: pointer), dat in hoofdstuk 2 bij de behan- 
deling van READ/DATA ook al ter sprake kwam. Net als bij deze 
opdrachten hanteert het besturingssysteem (DOS) een wijzermecha- 
nisme om bij te houden welk bestandsgegeven aan de beurt is om te 
worden ingelezen. Bij het openen wordt de wijzer ingesteld op het 
begin van het bestand. Hij wijst op dat moment dus het eerste gege- 
ven aan. Bij iedere uitvoering van een INPUT #-opdracht wordt de 
wijzer evenveel posities vooruitgeschoven als er variabelen zijn in 
de invoerlijst. Bij de PRINT # gaat dit op dezelfde manier. De wij- 
zer geeft dus steeds een nieuw gegeven aan bij INPUT #, en geeft 
de plaats aan waar het eerstvolgende gegeven wordt vastgelegd bij 
PRINT #. 


voorbeelden : 
PRINT #1, A$- De wijzer wordt één positie opgeschoven. 
PRINT #1, N, N$ De wijzer wordt twee posities opgeschoven. 


PRINT #1, W‚ X, Y, Z De wijzer wordt vier posities opgeschoven. 


Verder moeten we weten dat bestanden door het besturingssysteem 
worden afgesloten met een speciale binaire code: het end-of-file 
teken, Bij iedere toevoeging van gegevens aan een bestand met de 
PRINT #-opdracht wordt behalve de wijzer ook het end-of-file teken 
opgeschoven. Dit gebeurt geheel automatisch. Het laatste teken van 
een file — ook na CLOSE — is dus altijd het end-of-file teken. 


We weten inmiddels dat bij het lezen van gegevens uit een bestand 
met de INPUT-opdracht de wijzer steeds naar het eerstvolgende 
beschikbare gegeven in het bestand (of beter gezegd, de buffer) 
‘kijkt'. Door nu de eerdergenoemde end-of-file functie EOF te 
gebruiken kunnen we constateren of dat teken het end-of-file teken 
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is, In MSX BASIC zou dat als volgt kunnen: 
IF EOF(1) THEN CLOSE 1 : GOTO 800 


Het getal tussen de haakjes — het functie-argument — is het nummer 
van de desbetreffende buffer. Merk op dat er tussen IF en THEN 
geen vergelijking staat in de normale zin van het woord. De reden 
hiervoor is dat de EOF-aanroep op zich eigenlijk een logische waar- 
de vertegenwoordigt. Het einde van het bestand is immers wel of 
niet bereikt (waar/onwaar). Het effect van bovenstaande opdracht 
is dus dat het bestand gesloten, en er naar regel 800 gesprongen 
wordt indien het einde van het bestand is bereikt. Is het eerstvol- 
gende teken geen end-of-file, dan wordt de programma-uitvoering 
bij de eerstvolgende opdracht voortgezet. 


Dankzij dit stuk 'gereedschap' kan het inventarisprogramma zo wor- 
den aangepast dat voortijdige beëindiging ten gevolge van end-of- 
file wordt voorkomen. We voegen regel 257 toe en veranderen 

regel 280: 


257 IF EOF(1) THEN 310 
280 GOTO 257 


Een andere mogelijkheid zou zijn: 
257 IF EOF(1) THEN CLOSE 1 : STOP 
waarbij regel 310 kan vervallen. 


Toetsvraag 
(a) Wat betekent EOF? 
(b) Welke betekenis heeft het argument van de EOF-functie? 
(a) end-of-file (teken) 
EOF-functie 


(b) Geeft het nummer aan van de buffer die op het voorkomen van 
een EOF-teken wordt onderzocht. 
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4.7 AANMAKEN EN TERUGLEZEN IN ÉÉN PROGRAMMA 


Tot nu toe hebben we uitsluitend programma's bekeken waarbij een 
bestand werd aangemaakt òf gelezen, maar niet beide. Mits we een 
bestand, dat voor één van beide gebruiksvormen is geopend, eerst 
met CLOSE afsluiten, is er echter geen enkel bezwaar tegen het 
bestand opnieuw voor dezelfde of de andere gebruiksvorm in het- 
zelfde programma te heropenen. 


We illustreren dit aan de hand van een eenvoudig programma voor 
het registreren van kwaliteitsgegevens bij een produktieproces. De 
kwaliteit van een produkt wordt daarbij aangegeven door een cijfer 
van 1 t/m 6. Voor ieder produkt wordt dit cijfer — de kwaliteits- 
klasse — ingelezen. Het programma maakt daarna een overzicht van 
het aantal produkten per klasse. 


100 REM DEMO AANMAKEN EN LEZEN VAN BESTAND IN EEN PROGRAMMA 

120 REM *** KWALITEITSBEWAKING *** 

140 REM INVOEREN VAN KWALITEITSKLASSEN EN AFDRUKKEN VAN OVERZICHT 
160 REM Verne 


170 REM + BESTAND 

180 REM _- K& _ : KWALITEITSKLASSE 

190 REM - 1 : ARRAY INDEX 

200 REM = V(6) : VERZAMELARRAY VOOR KWALITEITSKLASSEN 
210 REM V(1) = AANTAL PRODUKTEN IN KLASSE 1 
220 REM V(2) = AANTAL PRODUKTEN IN KLASSE 2 
230 REM ENZ. 


240 REM BESTAND 
250 REM __- SEQUENTIEEL OP FLOPPY, NAAM DOOR GEBRUIKER IN TE VOEREN 


270 REM _INITIALISEER ARRAY 


280 REM 
290 FOR I= 1 TO6 : LET V(I) = 0: NEXT I 
300 REM 
310 REM VRAAG NAAM VAN BESTAND EN OPEN VOOR UITVOER 
320 REM 
330 LINE INPUT "NAAM VAN BESTAND: “; B$ 
340 OPEN BS FOR OUTPUT AS #1 
350 REM 
360 REM _GEGEVENSINVOER 
370 REM 
380 PRINT “GEEF UITSLUITEND GEHELE GETALLEN VAN 1 T/M 6 OP, * 
390 PRINT “OF 99 ALS U WILT STOPPEN" 
400 PRINT “* 
410 INPUT "KWALITEITSKLASSE: "; Kö 
420 IF K$ = 99 THEN 490 
430 IF K& < 1 OR KX > 6 THEN 
PRINT “GEHEEL GETAL 1 T/M 6 OPGEVEN AUB" : GOTO 410 
440 PRINT #1, KX 
450 G0TO 410 


460 REM 
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470 REM AFSLUITEN BESTAND EN OPENEN VOOR INVOER 

480 REM 

490 CLOSE 1 

500 OPEN B$ FOR INPUT AS #1 

510 REM 

za REM LEES KWALITEITSKLASSEN EN SOMMEER IN VERZAMELARRAY 

30 REM 

540 IF EOF(1) THEN 610 

550 INPUT #1, 1 

560 LET V(I) = VI) + 1 

570 GOTO 540 

580 REM 

590 REM OVERZICHT MAKEN 

600 REM 

610 CLS : REM *** SCHERM SCHOONMAKEN *** 

620 PRINT “OVERZICHT AANTAL PRODUKTEN PER KWALITEITSKLASSE" 

630 PRINT 

640 PRINT "KLASSE", "AANTAL" 

650 FOR I= 1 106 

660 PRINT I, V(I) 

670 NEXT 1 

680 REM 

690 REM AFSLUITEN EN STOPPEN 

700 REM 

710 CLOSE 1 

999 END 

Toetsvragen 

De volgende toetsvragen hebben betrekking op bovenstaand pro- 

gramma. 

(a) Via welke opdracht wordt de naam van het gegevensbestand 
bepaald? 

(b) Via welke opdracht worden de ingevoerde kwaliteitsklassen 
gecontroleerd? 

(e) Hoe 'weet' de computer dat alle gegevens zijn ingevoerd? 

(d) Waarom zijn binnen één en hetzelfde programma twee 
"CLOSE 1"-opdrachten opgenomen? 

(e) Wat is het doel van regel 540? 

(f) Hoeveel verschillende waarden kan de variabele I in regel 580 
aannemen? 

(a) Opdracht 330. 

(b) Opdracht 430. 

(e) De gebruiker voert als 'klasse' de waarde 99 in. 

(d) Het bestand moet zowel na invoer als na uitvoer worden afge- 


sloten. 
Controleren of het einde van het bestand is bereikt. 
Zes (1 t/m 6). 
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We schrijven nu samen een soortgelijk programma als hierboven. Het 
programma moet een gegevensbestand met de naam DEMO1 maken, en 
vervolgens de inhoud van dat bestand afdrukken. In een ijverige 

bui hebben we de klus zelf al grotendeels geklaard. U wordt ver- 

zocht de ontbrekende regels (200, 240, 270, 310, 340, 350 en 390) 
te leveren. Let daarbij vooral op de REMARKs. 


100 REM _DEMONSTRATIEPROGRAMMA 

110 REM 

120 REM _VARIABELENLIJST 

130 REM =G1$ _: WEG TE SCHRIJVEN GEGEVEN 


140 REM 2S _: TERUG TE LEZEN GEGEVEN 

150 REM -X : BESTURINGSVARIABELE FOR/NEXT 

160 REM 

170 REM BESTAND : SEQUENTIEEL, FLOPPY, 1 STRING PER RECORD 

180 REM NAAM = DEMO1 

190 REM 

200 vanvevadrenssnorneevsnvaeneverere f REM PSE OPEN BESTAND tee 
210 REM WEGSCHRIJVEN VAN 8 STRINGS NAAR GEGEVENSBESTAND 

220 FORX = 1 TO 8 

230 LET G1$ = "TEST" + STRS(X) 

240 verevenen : REM *** SCHRIJF WEG *** 


250 NEXT X 


260 REM SLUIT NU HET BESTAND 
270 veneneeverseerensenrverservennnenn 


280 REM BEVESTIGING AFDRUKKEN 
290 PRINT “BESTAND AFGEMAAKT EN AFGESLOTEN" 


300 REM OPEN BESTAND VOOR INVOER (HOEFT NIET MET ZELFDE BUFFERNUMMER) 
310 . 


320 REM LEES GEGEVENS UIT BESTAND EN DRUK AF 
330 REM TEST DAARBIJ OP EINDE BESTAND MET EOF-FUNCTIE 


350 vennveevenveeven wenneennenveeveene 
360 PRINT G2$ 
370 GOTO 340 


380 REM SLUIT BESTAND EN STOP 
390 neemen es ader deemennd 


400 PRINT “BESTAND AFGESLOTEN" 


999 END 
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(a) 200 OPEN "DEMO1" FOR OUTPUT AS 1 
(b) 240 PRINT #1, GIS 

(e) 270 CLOSE 1 

(d) 310 OPEN "DEMO1" FOR INPUT AS 1 
(e) 340 IF EOF(1) THEN 390 

(É) 350 INPUT #1, G2s 

(g) 390 CLOSE 1 


(h) Geef nu de uitvoer van het programma. 


(Mh) BESTAND AANGEMAAKT EN AFGESLOTEN 
TEST1 


TEST2 
TEST3 
TEST4 
TEST5 
TEST6 
TEST7 
TEST8 
BESTAND AFGESLOTEN 


Tenslotte 


Bij het werken met bestanden lijkt het na het geven van een RUN- 
opdracht vaak alsof er niets gebeurt. Na lang wachten verschijnt 
dan eindelijk de verlossende boodschap Ok. op het scherm. De 
onervaren gebruiker krijgt hierbij al gauw het vermoeden dat er 
iets mis is. Tussentijdse meldingen kunnen dan paniekreacties 
voorkomen. 


Toetsvraag 


(a) Bevat het bovenstaande programma dergelijke tussentijdse mel 
dingen? Zo ja, in welke regel(s)? 


(a) Ja, regels 290 en 400. 


48 VERWIJDEREN VAN BESTANDEN (KILL) 

Bestanden kunnen desgewenst van schijf worden verwijderd. Het 
commando hiervoor in MSX BASIC heet - zeer toepasselijk — KILL. 
De vorm van het commando is: 


KILL naam (met eventuele uitbreiding, bijv. OPBRE.JAN) 
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waarbij naam een alfanumerieke constante of variabele is die de naam 
van het te verwijderen bestand aangeeft, bijvoorbeeld 

KILL "INVENT", Behalve als systeemcommando (dus buiten een pro- 
gramma om) kan KILL ook als programma-opdracht worden gebruikt. 


KILL moet met de nodige voorzichtigheid worden gehanteerd. Een- 
maal gegeven is het desbetreffende bestand namelijk voorgoed van 
het toneel verdwenen, waardoor ettelijke uren of zelfs dagen werk 
verloren kunnen gaan. Het is daarom aan te raden van belangrijke 
bestanden steeds een reserve-exemplaar op een andere schijf — een 
zogenaamde backup — bij te houden. Gezien de verstrekkende gevol 
gen van een KILL raden we bovendien aan deze opdracht nooit in 
een programma op te nemen (tenzij het om een onbelangrijk bestand 
gaat), maar het bestand expliciet door middel van de commandovorm 
te verwijderen. 


KILL wordt overigens nogal eens verward met CLOSE. Het effect 
van CLOSE is dat de toegekende buffer wordt losgekoppeld van het 
bestand. In het geval van uitvoer worden bovendien eventueel res- 
terende buffergegevens naar schijf overgebracht. Na een CLOSE 
bestaat het bestand dus nog steeds. KILL daarentegen verwijdert 
de naam van het bestand uit de zogenaamde directory (een adres- 
tabel oftewel 'inhoudsopgave' van de schijf) en maakt het bestand 
daardoor onbereikbaar. Overigens moet een bestand ge-CLOSEd zijn 
alvorens het ge-KILL-ed wordt. Gebeurt dit niet dan kunnen ande- 
re bestanden op de schijf verminkt worden. 


In het boek "Programmeercursus MSX BASIC" vindt u veel informa- 
tie over KILL en andere BASIC DOS-opdrachten als COPY, FORMAT , 
NAME, MERGE en FILES. 


4,9 TOETSVRAGEN 


In de toetsvragen van deze paragraaf wordt u gevraagd eerst een 
programma te schrijven waarmee gegevens in een bestand worden 
opgeslagen. Vervolgens wordt gevraagd een bijbehorend programma 
te schrijven waarmee de weggeschreven gegevens op scherm of 
printer zichtbaar worden gemaakt. De bestanden die u hierbij maakt 
zullen in hoofdstuk 5 worden gebruikt. Het is dan ook aan te raden 
zowel de programma's als de bestanden te bewaren. 


Mocht u niet over de benodigde schijfapparatuur beschikken, dan 
kunt u desondanks de programma's alvast schrijven. Er zullen 
namelijk slechts minimale aanpassingen nodig zijn om uw programma 
voor cassette-apparatuur geschikt te maken, In hoofdstuk 6 gaan 
we daar nader op in. 
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Van alle 'aanmaak'programma's wordt — terwille van de uniformiteit 
tussen uw uitwerkingen en de onze — het inleidende deel gegeven. 


Ma) 


(b) 


2(a) 


(b) 


Schrijf een programma om een bestand te maken dat aan de 
volgende eisen voldoet: 


- per record vier gegevens 

- eerste twee gegevens zijn strings 

= resterende twee gegevens zijn numerieke waarden die als 
strings worden ingevoerd. 


Test bij invoer op nulstrings, en controleer of de laatste twee 
gegevens inderdaad numeriek zijn. Converteer deze string- 
waarden eerst naar numerieke waarden, toegekend aan nume- 
rieke variabelen, alvorens ze in een bestand op te nemen. 
Neem minstens vijf records in het bestand op. 


100 REM OPLOSSING VRAAG 1A 
M 


110 REI 

120 REM _VARIABELENLIJST 

130 REM =A$ : GEGEVEN 1, ALFANUMERIEK 
140 REM = B5 GEGEVEN 2, ALFANUMERIEK 


150 REM = C$/C GEGEVEN 3, ALFANUMERIEK 
160 REM = D$/D : GEGEVEN 4, NUMERIEK 


190 REM BESTANDEN 
200 REM = VRAAG! (SEQUENTIEEL, FLOPPY) 


Schrijf een bijbehorend programma om de inhoud van het 
bestand op het scherm zichtbaar te maken. 


U bent geheel in de ban van de automatisering geraakt en hebt 
besloten uw boodschappenlijstje voor de kruidenier voortaan 
via de computer samen te stellen. Daarvoor gebruikt u een 
bestand met de naam BOODSCHAP, waarin voor ieder artikel 
een omschrijving van maximaal 20 tekens en de aan te schaffen 
hoeveelheid (numerieke waarde) wordt opgenomen. Schrijf het 
programma, en neem in het bestand minstens zes records op. 


100 REM OPLOSSING VRAAG 2A: BOODSCHAPPENL IJST 


M 
120 REM _ VARIABELENLIJST 
M = A$ : OMSCHRIJVING ARTIKEL 
140 REM H__: HOEVEELHEID / AANTAL 
150 REM =N$ : NAAM BESTAND (DOOR GEBRUIKER OP TE GEVEN) 
160 REM _- D$ : VARIABELE T.B.V. DIALOOG 


Schrijf een bijbehorend programma om het lijstje op scherm of 
printer zichtbaar te maken. 
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3(a) 


(b) 


4la) 


Schrijf een programma om ten behoeve van een klein bedrijf 
een eenvoudig klantenbestand bij te houden. Voor iedere klant 
dient in het bestand een record met de volgende drie gegevens 
voor te komen: 


= klantnummer (precies 5 cijfers) 
— klantnaam (maximaal 20 tekens) 
- kredietwaardigheid (codegetal 1, 2, 3, 4 of 5) 


Neem in het programma invoercontroles op voor nulrespons 
(dat wil zeggen de gebruiker voert niets in) en voor geldig 
klantnummer, -naam en kredietwaardigheid. Bouw minstens 12 
records op, gebruikmakend van steeds verschillende klantnum- 
mers gerangschikt volgens toenemende grootte, bijvoorbeeld 
19652, 19653, 19654, enz. 


100 REM OPLOSSING VRAAG 3A: AANMAKEN KLANTENBESTAND 


M 
120 REM _ VARIABELENLIJST 
M = B$ _: NAAM VAN BESTAND 
140 REM = N$ _ : KLANTNUMMER 
150 REM = K$ _ : KLANTNAAM 
160 REM = C$/C : KREDIETCODE (1, 2, 3, 4 OF 5) 
170 REM = AS _ : VARIABELE T.B.V. DIALOOG 


180 REM 

190 REM BESTAND : SEQUENTIEEL/FLOPPY 

2 Ren NAAM DOOR GEBRUIKTER IN TE VOEREN 
1 M 


Schrijf een bijbehorend programma om de inhoud van het 
bestand op het scherm zichtbaar te maken. 


Schrijf een programma om gegevens in een transactiebestand 
op te nemen. Een transactiebestand bestaat uit gegevens die 
betrekking hebben op zakelijke transacties zoals bijvoorbeeld 
in het bankwezen, detailhandel of postorderbedrijf. Ten 
behoeve van deze vraag nemen we aan dat voor iedere trans- 
actie een record van maximaal 14 tekens wordt geproduceerd 
met de volgende indeling: 
1----5/67/8----- 14 

rekeningnummer bedrag 

(5 tekens) (7 tekens) 


transactiecode 
(2 tekens) 


De naam wordt door de gebruiker opgegeven. Maak met het 
programma twee verschillende bestanden aan met elk zeven 
records (transacties). Gebruik daarbij de volgende rekening- 
nummers: 
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(b 


) 


5(a) 


(b 


bestand 1 bestand 2 
10762 10761 
18102 18203 
43611 43611 
43611 80111 
43611 80772 
80223 80772 
98702 89012 


(Let wel: alleen de rekeningnummers zijn gegeven; de transac- 
tiecodes en bedragen bepaalt u zelf.) 


100 REM OPLOSSING VRAAG 4A 
110 REM 
120 REM _VARIABELENLIJST 

M Ns: 


130 RE - NAAM VAN BESTAND 

140 REM = H$/H : HULPVARIABELE 

150 REM = R$ _ : REKENINGNUMMER (5 CIJFERS) 
160 REM = T$ _: TRANSACTIECODE 

170 REM = F$ __: BEDRAG 

180 REM Le | : BESTURINGSVARIABELE FOR/NEXT 


M 
200 REM BESTAND : SEQUENTIEEL/FLOPPY, NAAM DOOR GEBRUIKER TE BEPALEN 


Schrijf een bijbehorend programma om de inhoud van de gepro- 
duceerde bestanden op het scherm zichtbaar te maken. 


Schrijf een programma om een bestand op te bouwen met wille- 
keurige namen en adressen (inclusief postcodes). De records 
dienen de volgende indeling te hebben: 


/1 20/21 40/41 47/48 67/ 


Denk aan invoercontroles en het aanvullen van deelvelden 
met spaties. Neem minstens zes records in het bestand op. 


100 REM OPLOSSING VRAAG 5A: ADRESBESTAND 
El 


110 REM 

120 REM VARIABELENLIJST 

130 REM 

140 REM - NS(20) : NAAM 

150 REM - AS(20) : (STRAAT-)ADRES, INCL. HUISNUMMER 

160 REM __- PS(7) : JA NATUURLIJK …. DE POSTCODE 

170 REM - WS(20) _: WOONPLAATS 

180 REM __- KIS/HI _: HULPVARIABELE T.B.V. TEKENCONTROLE EN DIALOOG 
190 REM _- H2$(67) : HULPVARIABELE T.B.V, SAMENSTELLEN RECORD 
200 REM 

210 REM BESTAND _ : NAPW, SEQUENTIEEL/FLOPPY 

220 REM 


Schrijf een bijbehorend programma om de inhoud van het 
bestand op het scherm zichtbaar te maken. 
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6(a) Schrijf een programma dat een standaardbrief als sequentieel uit- 
voerbestand produceert. De tekstregels dienen als een gegeven 
te worden ingevoerd en weggeschreven. Gebruik het programma 
om drie verschillende brieven met de namen BRIEF1, BRIEF? en 
BRIEF3 te maken. Ieder bestand dient minstens 3 tekstregels te 
bevatten. 


Ju Ed OPLOSSING VRAAG 6A: STANDAARD BRIEF MAKEN 
La 

120 REM VARIABELENLIJST 

130 REM = R$ _ : TEKSTREGEL 

140 REM = B$ _ : NAAM VAN BESTAND 


150 REM 

160 REM BESTAND : BRIEFX, WAARBIJ X = 1, 2, 3 ENZ. 
170 REM SEQUENTIEEL/FLOPPY 

180 REM 


(b) Schrijf een bijbehorend programma om de brieven op scherm of 
printer zichtbaar te maken. 


4.10 ANTWOORDEN OP DE TOETSVRAGEN 


(a) Kn REM OPLOSSING VRAAG 1A 
1 


120 REM _ VARIABELENLIJST 

130 REM _ - A$ _ : GEGEVEN 1, ALFANUMERIEK 
=BS _ : GEGEVEN 2, ALFANUMERIEK 
= C$/C : GEGEVEN 3, NUMERIEK 

160 REM = D$/D : GEGEVEN 4, NUMERIEK 
=X$ : VARIABELE T.B.V. DIALOOG 


190 REM BESTANDEN 
200 REM _- VRAAG! (SEQUENTIEEL, FLOPPY) 


210 REM 
220 OPEN "VRAAG1" FOR OUTPUT AS 1 
230 REM 
240 REM GEGEVENSINVOER EN -CONTROLE 
250 REM 
260 LINE INPUT kred 1 (ALFANUMERIEK) : 
270 IF LEN(AS) = 0 THEN 
PRINT invoer OPGEVEN AUB" : GOTO 260 
275 REM 
280 LINE INPUT "GEGEVEN 2 (ALFANUMERIEK): * 
290 IF LEN(BS) = 0 THEN 


PRINT “INVOER OPGEVEN AUB" : GOTO 280 


(worat vervolgd) 
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b) 


REM 


REM 


LINE INPUT “GEGEVEN 3 (NUMERIEK) : * CS 
IF LEN(CS) = 0 THEN 
PRINT “INVOER OPGEVEN AUB" : GOTO 300 
IF VAL(CS) = 0 THEN 
PRINT “ALLEEN GETALLEN OPGEVEN AUB" : GOTO 300 
LET C = VAL(CS) 


LINE INPUT eb & (NUMERIEK) 1“; DS 
IF LEN(DS) = 
PRINT Limoen OPGEVEN AuB“ : GOTO 340 
IF VAL(DS) = 0 THEN 
PRINT “ALLEEN GETALLEN OPGEVEN AUB" : GOTO 340 
LET D = VAL(DS) 


WEGSCHRIJVEN EN EVENTUEEL HERHALEN 


PRINT #1, AS; "‚"; BS; "‚"; C; 
LINE INPUT "MEER deck lenS? eN : "Xs 
IF LEFTS(XS,1) = "J" THEN 260 


AFSLUITEN EN STOPPEN 


CLOSE 
PRINT * * : PRINT "BESTAND AFGESLOTEN" 
END 


OPLOSSING VRAAG 18 


VARIABELENLIJST 

=A$ _ : GEGEVEN 1, ALFANUMERIEK 
=B$ _ : GEGEVEN 2, ALFANUMERIEK 
= CS/C : GEGEVEN 3, NUMERIEK 

= D$/D : GEGEVEN 4, NUMERIEK 


BESTANDEN 
= VRAAGI (SEQUENTIEEL, FLOPPY) 


OPEN “VRAAG1" FOR INPUT AS 1 
GEGEVENS INLEZEN EN AFDRUKKEN 
IF EOF(1) THEN 320 
INPUT #1, AS, BS, C‚, D 
PRINT A$, BS, C‚, D 
GOTO 250 
AFSLUITEN EN STOPPEN 
CLOSE 


Î 
PRINT “ “ ; PRINT "EINDE OVERZICHT, BESTAND GESLOTEN" 
END 
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2(a) 100 
110 
120 
130 


2(b) 100 


REM 


OPLOSSING VRAAG 2A: BOODSCHAPPENLIJST 


VARIABELENLIJST 

= A$ : OMSCHRIJVING ARTIKEL 

= H__: HOEVEELHEID / AANTAL 

= NS : NAAM BESTAND (DOOR GEBRUIKER OP TE GEVEN) 
= D$ : VARIABELE T.B.V. DIALOOG 


NAAM BESTAND OPVRAGEN EN OPENEN VOOR UITVOER 


LINE INPUT "NAAM VAN BESTAND: "; N$ 
OPEN N$ FOR OUTPUT AS 1 


GEGEVENSINVOER EN -CONTROLE 
PRINT “GEEF 'STOP' ALS U KLAAR BENT" 
RINT ** 


PI 
LINE INPUT "ARTIKEL (MAXIMAAL 20 TEKENS OF 'STOP'): "; Af 
IF AS = Sn EN 450 
IF LEN(AS) = 

PRINT PART IKEL ORSCHRIJV ING OF STOP GEVEN AUB" : GOTO 270 
IF LEN(AS) > 20 THEN 

PRINT "MAX. 20 TEKENS. OPNIEUW AUB" : GOTO 270 


INPUT "HOEVEELHEID: *; H 

IF H>= 1 AND H < 10 THEN 400 
PRINT "HOEVEELHEID WAS "; H; "OK? (J/N): * 
LINE INPUT D$ 
IF LEFTS(DS,1) = "N" THEN 320 


WEGSCHRIJVEN EN HERHALEN 
PRINT #1, A$; "‚*; H 


GOTO 270 

AFSLUITEN EN STOPPEN 

CLOSE 1 

EAT *_#_: PRINT “BESTAND GESLOTEN" 


OPLOSSING VRAAG 2B: BOODSCHAPPENLIJST AFDRUKKEN 


VARIABELENLIJST 

= A$ : OMSCHRIJVING ARTIKEL 

= H__: HOEVEELHEID / AANTAL 

= N$ : NAAM BESTAND (DOOR GEBRUIKER OP TE GEVEN) 


NAAM BESTAND OPVRAGEN EN OPENEN VOOR INVOER 


LINE INPUT "NAAM VAN BESTAND: "; N$ 
OPEN NS FOR INPUT AS 1 


(wordt vervolgd) 


Ns 


GOTO 320 


+ GOTO 320 


GOTO 320 
Ks 


: GOTO 380 


: GOTO 380 


cs 
G0TO 420 
G0TO 420 
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220 REM GEGEVENS INLEZEN EN AFDRUKKEN 
230 REM 
240 PRINT "ARTIKEL", "HOEVEELHEID" : PRINT ** 
250 IF EOF(1) THEN 320 
260 INPUT #1, AS, H 
270 PRINT AS, H 
280 GOTO 250 
290 REM 
300 REM AFSLUITEN EN STOPPEN 
310 REM 
320 CLOSE 1 
330 PRINT ** : PRINT "EINDE OVERZICHT, BESTAND GESLOTEN" 
999 END 
3(a) La REN OPLOSSING VRAAG 3A: AANMAKEN KLANTENBESTAND 
100 REM 
120 REM VARIABELENLIJST 
130 REM _- BS _: NAAM VAN BESTAND 
140 REM - NS KATE 
150 REM - KS: KLANTNAA 
160 REM - CS/C KREDIETEone (1, 2, 3, 4 OF 5) 
170 REM - AS : VARIABELE T.B.V. DIALOOG 
180 REM 
190 REM BESTAND : SEQUENTIEEL/FLOPPY 
200 REM NAAM DOOR GEBRUIKER IN TE VOEREN 
210 REM 
220 REM INITIALISATIES 
230 REM 
240 LINE INPUT “NAAM VAN BESTAND: *; BS 
250 OPEN BS FOR OUTPUT AS 1 
260 REM 
270 REM _GEGEVENSINVOER EN -CONTROLE 
280 REM 
290 PRINT "GEEF 'STOP' (ZONDER AANH. TEKENS) OM TE EINDIGEN" 
300 PRINT ** 
310 REM 
320 LINE INPUT Her, VAN KLANT (5 CIJFERS). : *; 
330 IF N$ = "STOP" THEN 570 
340 IF LEN(NS) = 0 THEN 
PRINT "GETAL OF 'STOP' INVOEREN" 
350 IF LEN(NS) © 5 THEN 
PRINT "INVOERFOUT. 5 CIJFERS AUB" 
360 IF VAL(NS) = 0 THEN 
ed PRINT "INVOERFOUT. ALLEEN GETALLEN AUB" 
380 LINE INPUT "NAAM VAN KLANT (MAX. 20 TEKENS): *; 
390 IF LEN(KS) = 0 THEN 
PRINT "NAAM INVOEREN AUB" 
400 IF LEN(KS) > 20 THEN 
PRINT “MAXIMAAL 20 TEKENS. OPNIEUW AUB" 
410 REM 
420 LINE INPUT "KREDIETCODE (1, 2, 3, 4 0F 5) :* 
430 IF LEN(CS) > 1 THEN 
PRINT “MAXIMAAL 1 CIJFER. OPNIEUW AUB" 
440 IF VAL(CS) = 0 THEN 
PRINT "EEN CIJFER AUB“ 
450 LET C = vAL(C$) 


REM 


3(b) 
1 


4(a) 
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470 REM 
480 REM 


500 REM 
510 REM 
520 REM 


560 REM 


350 REM 
360 REM 


100 REM 
110 REM 
120 REM 
130 REM 
140 REM 
150 REM 
160 REM 
170 REM 
180 REM 
190 REM 


(wordt 


SCHRIJF WEG 
PRINT #1, NS; 


HERHALEN OF STOPPEN 
CLS : REM *** MAAK SCHERM SCHOON *** 


LINE INPUT "NOG EEN KLANT (J/N) z * AS 
IF LEFTS(AS) = "J" THEN 320 
CLOSE 1 


PRINT ““ : PRINT “EINDE PROGRAMMA, BESTAND GESLOTEN" 
END 


OPLOSSING VRAAG 38: AFDRUKKEN KLANTENBESTAND 


VARIABELENLIJST 
= BS _: NAAM VAN BESTAND 
= NS _ : KLANTNUMMER 


: KLANTNAAM 
= C$/C : KREDIETCODE (1, 2, 3, 4 OF 5) 


BESTAND : SEQUENTIEEL/FLOPPY 
NAAM DOOR GEBRUIKER IN TE VOEREN 


VRAAG BESTANDNAAM EN OPEN 


CLS 
LINE INPUT "NAAM VAN BESTAND : *;B$ 
OPEN BS FOR INPUT AS 1 


LEES RECORD EN DRUK AF 


PRINT “KLANTNUMMER", "KLANTNAAM", “KREDIETCODE" 
IF EOF(1) THEN 370 

INPUT #1, NS, K$, C 

PRINT NS, Ks, C 
GOTO 300 


AFSLUITEN EN STOPPEN 


CLOSE 1 
PRINT ““ ; PRINT “EINDE OVERZICHT, BESTAND GESLOTEN" 
END 


OPLOSSING VRAAG 4A: TRANSACTIEBESTAND 


VARIABELENLIJST 

-N : NAAM VAN BESTAND 
HULPVARIABELE 

: REKENINGNUMMER (5 CIJFERS) 
: TRANSACTIECODE 


: BEDRAG 
: BESTURINGSVARIABELE FOR/NEXT 


vervolgd) 
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200 REM BESTAND : SEQUENTIEEL/FLOPPY, NAAM DOOR GEBRUIKER TE BEPALEN 
220 REM _INITIALISATIES GEHEUGEN/BESTAND 


230 REM 
240 CLEAR 500 
250 LINE INPUT "NAAM VAN BESTAND 1"; NS 
260 OPEN NS FOR OUTPUT AS 1 
270 CLS 
280 REM 
290 REM GEGEVENSINVOER EN -CONTROLE 
300 REM 
si ne PRINT "GEEF -1 OM MET INVOER TE STOPPEN" 
330 LINE INPUT "REKENINGNUMMER (5 CIJFERS) 1“; RS 
340 IF R$ = “-1" THEN 660 
350 IF VAL(RS) = 0 THEN 
PRINT "INVOER NODIG OF * : GOTO 310 
360 IF LEN(RS) > 5 THEN 
PRINT R$; “: NIET ACCEPTABEL. OPNIEUW AUB" + GOTO 310 
370 REM 
380 REM 
390 LINE INPUT “TRANSACTIECODE (2 CIJFERS): “; T$ 
400 IF VAL(TS) = 0 THEN 
PRINT “INVOER NODIG" : GOTO 390 
410 IF LEN(TS) © 2 THEN 
PRINT T$; “: NIET ACCEPTABEL. OPNIEUW AUB" : GOTO 390 
430 REM 
440 PRINT "BEDRAG (ZONDER VALUTATEKEN, MAXI-" 
450 LINE INPUT * MAAL 999.99) : "; FS 
460 IF VAL(FS) = 0 THEN 
PRINT "INVOER NODIG" : GOTO 440 
470 IF VAL(FS) > 999,99 THEN 
PRINT F$; “: NIET ACCEPTABEL. OPNIEUW AUB" : GOTO 440 
480 FOR I= 1 TO LEN(F$) 
490 H_e ASC(MIDS(FS,1,1)) 
500 IF Ho>= 48 AND H<e 57 OR He 46 THEN 530 
510 PRINT "ONGELDIGE INVOER. ALLEEN CIJFERS EN *; 
520 PRINT "DECIMALE PUNT TOEGESTAAN" : GOTO 440 
530 NEXT I 
nd IF LEN(F$) < 6 THEN LET F$ = * * + FS : GOTO 540 
REM 
560 REM STEL RECORD SAMEN EN SCHRIJF WEG 
570 REM 
580 LET H$ = R$ + T$ + FS 
590 PRINT #1, HS 
600 REM 
610 REM _HERHALEN/EINDIGEN 
620 REM 
630 CLS 
640 GOTO 330 
650 REM 
660 


CLOSE 1 
670 ERN “BESTAND GESLOTEN" 
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4(b) 100 


5(a) 100 


REM 


0 REM 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


REM 
REM 
REM 


REM 
REM 
REM 


OPLOSSING VRAAG 4B: TRANSACTIEBESTAND UITPRINTEN 
VARIABELENLIJST 

= NS _ _: NAAM VAN BESTAND 

= H$ _ : HULPVARIABELE VOOR RECORD 

BESTAND : SEQUENTIEEL/FLOPPY, NAAM DOOR GEBRUIKER TE BEPALEN 
INITIALISATIE 


LINE INPUT "NAAM VAN BESTAND 1“; NS 
OPEN N$ FOR INPUT AS 1 


LEES GEGEVENS UIT BESTAND EN DRUK AF 


PRINT “REKENINGNR", "CODE", "BEDRAG" 
IF EOF(1) THEN 330 

INPUT #1, HS 

PRINT LEFTS(HS,5), MIDS(HS,6,2), RIGHTS(HS,6) 
GOTO 260 


BESTAND AFSLUITEN EN STOPPEN 
CLOSE 1 


PRINT ““ : PRINT "EINDE OVERZICHT, BESTAND GESLOTEN" 
END 


OPLOSSING VRAAG 5A: ADRESBESTAND 


VARIABELENLIJST 
NS(20) _ : NAAM 
As(20) : (STRAAT-)ADRES, INCL. HUISNUMMER 


= P$(7) z JA NATUURLIJK .…. DE POSTCODE 

= WS(20) _: WOONPLAATS 

= HIS/H1 _ : HULPVARIABELE T.B.V. TEKENCONTROLE EN DIALOOG 
= H2$(67) : HULPVARIABELE T.B.V. SAMENSTELLEN RECORD 
BESTAND : NAPW, SEQUENTIEEL/FLOPPY 

INITIALISATIES 


CLEAR 1000 
OPEN “NAPW" FOR OUTPUT AS 1 


GEGEVENSINVOER EN -CONTROLE 
LINE INPUT “NAAM (MAXIMAAL 20 TEKENS) 1 “NS 
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IF LEN(NS) < 20 THEN LET NS = NS +" " : GOTO 310 


IF LEN(NS) > 20 THEN 


PRINT “MAX. 20 TEKENS. OPNIEUW AUB" + GOTO 300 


(wordt vervolgd) 
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330 REM 
340 LINE INPUT "STRAAT + HUISNR (MAX. 20 TEKENS) : *; AS 
350 IF LEN(AS) < 20 THEN LET A$ = AS +" " : GOTO 350 
360 IF LEN(AS) > 20 THEN 
PRINT "MAX. 20 TEKENS. OPNIEUW AUB" : GOTO 340 
370 REM 
380 LINE INPUT “POSTCODE (XXXX AA) Eens 
390 IF VAL(LEFTS(P$,4)) = 0 THEN 
PRINT “IN POS. 1-4 ALLEEN CIJFERS. OPNIEUW AUB“: GOTO 380 
400 HI = ASC(MIDS(PS,6,1)) : REM «er POS, 6 = LETTER? «++ 
410 IF HI <65 OR HI > 90 THEN 
PRINT “LETTER IN POS. 6 NODIG. OPNIEN AB, : G0TO 380 
420 HI = ASC(MIDS (PS ,7,1)) vee POS, 7 = LETTER? ver 
430 IF H1 <65 OR HI > 90 THEN 
PRINT “LETTER IN POS. 7 NODIG. OPNIEUW | AB : GOTO 380 
440 HI = ASC(MIDS(PS,5,1)) vee POS. 5 = SPATIE? ve* 
450 IF HI <> 32 THEN 
n PRINT * SPATIE IN POS. 5 NODIG. OPNIEUW AUB“ : GOTO 380 
460 REM 
470 LINE INPUT “WOONPLAATS (MAX. 20 TEKENS) 15 MS 
480 IF LEN(WS) < 20 THEN W$ = W$ + * * : GOTO 480 
430 IF LEN(WS) > 20 THEN 
PRINT "MAXIMAAL 20 TEKENS. OPNIEUW AUB“ : GOTO 470 
500 REM 
510 REM RECORD SAMENSTELLEN EN WEGSCHRIJVEN 
520 REM 
530 H25 = NS + A$ + PS + WS 
540 PRINT #1, H2$ 
550 REM 
560 REM HERHALEN OF STOPPEN 
570 REM 
580 LINE INPUT "HERHALEN? (J/N) : 5; HIS 
590 IF LEFTS(HIS,1) = "J" THEN 300 
600 REM 
610 CLOSE 1 
620 PRINT "BESTAND GESLOTEN" 
999 END 
5(b) 100 REM OPLOSSING VRAAG 58: ADRESBESTAND AFDRUKKEN 
110 REM 
120 REM VARIABELENLIJST 
130 REM _- NS(20) : NAAM 
140 REM - STRAAT ds, HUISNUMMER 
150 REM - POSTC 
160 REM - oonPLAArs 
170 REM - RECORD 
180 REM - : DIALOOG 
190 REM 
200 REM BESTAND : NAPW, SEQUENTIEEL/FLOPPY 
210 REM 
220 OPEN “NAPW” FOR INPUT AS 1 
230 REM 


(wordt vervolgd) 


6(a) 
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REM 
REM 


LEES RECORD EN DRUK VELDEN AF 


IF EOF(1 
IN 
PRINT 
PRINT 
PRINT 
PRINT 


) THEN 370 


PUT #1, 


RS 
LEFTS(R$ „20) 
MIDS (RS,21,20) 


MIDS (RS,41,7); * #5 MIDS(RS, 48, LEN(RS-47)) 


LINE INPUT "GEEF ENTER OF RETURN ALS U VERDER WILT GAAN"; DS 


GOTO 260 


AFSLUITING 


CLOSE 1 


VENT “EINDE OVERZICHT, BESTAND AFGESLOTEN" 
D 


OPLOSS IN 


VARIABEL! 
= R$ 
= BS 


BESTAND : 


INITIALI 


CLEAR 10 
LINE INPI 
LET B$ = 
OPEN B$ 


TEKST IN 


PRINT “GEEF, TEROTREREL OF 'STOP' (ZONDER AANH. TEKENS)" 


IG VRAAG 6A: STANDAARD BRIEF MAKEN 


ENLIJST 
: TEKSTREGEL 
: NAAM VAN BESTAND 


BRIEFX, WAARBIJ X = 1, 2, 3 ENZ. 
SEQUENTIEEL /FLOPPY 


SATIES 

00 

UT "VOLGNUMMER BESTAND 1“; BS 
"BRIEF" + B$ 

FOR OUTPUT AS 1 


LEZEN EN WEGSCHRIJVEN 


LINE INPUT 


IF R$ = 
PRINT #1 
GOTO 290 


nsropr “THEN 360 
‚RS 


AFSLUITEN EN STOPPEN 


CLOSE 1 


PRINT ** : 


END 


PRINT "BESTAND “; BS; "GESLOTEN" 
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6(b) 
100 REM 


OPLOSSING VRAAG 68: STANDAARD BRIEF AFDRUKKEN 


VARIABELENLIJST 
= R$ _ : TEKSTREGEL 
=B$ _ : NAAM VAN BESTAND 


BESTAND : BRIEFX, WAARBIJ X = 1, 2, 3 ENZ. 
SEQUENTIEEL /FLOPPY 


INITIALISATIES 
LINE INPUT "VOLGNUMMER BESTAND 1 *; BS 
LET B$ = "BRIEF" + B$ 
OPEN B$ FOR INPUT AS 1 
LEES TEKST EN DRUK AF 
IF EOF(1) THEN 350 
INPUT #1, R$ 
PRINT CHRS(34), R$, CHRS(34) : REM *** 34 = " ter 
GOTO 270 
AFSLUITEN EN STOPPEN 


CLOSE 1 
END 


5 UTILITY-PROGRAMMA'S VOOR 
SEQUENTIELE BESTANDEN 


50 DOELSTELLINGEN 


Na het doorwerken van dit hoofdstuk moet u in staat zijn program- 
ma's te schrijven waarmee: 


= een sequentieel bestand kan worden gekopieerd; 

- gegevens aan een reeds aanwezig bestand kunnen worden toege- 
voegd (uitbreiden); 

= gegevens in een reeds aanwezig bestand kunnen worden veran- 
derd (mutatie); 

= incidentele gegevens uit een sequentieel bestand kunnen worden 
opgevraagd, en gegevens kunnen worden veranderd, toegevoegd 
of verwijderd; 

= de inhoud van twee sequentiële bestanden tot één sequentieel 
bestand kan worden samengevoegd, onder handhaving van de 
eventuele numerieke of alfabetische volgorde van gegevens; 

- gegevens uit meer dan één sequentieel bestand kunnen worden 
gebruikt of gecombineerd. 


Programma's waarmee dergelijke algemene handelingen kunnen wor- 
den uitgevoerd heten utility-programma's (dat wil zeggen 'dienst'- 
of 'hulp'-programma's, meervoud: utilities). Naast deze utilities 
krijgt u in dit hoofdstuk ook te maken met enkele algemene bestands- 
technieken. Van daaruit zult u in staat zijn eigen toepassingen te 
maken. 


We gaan in dit hoofdstuk overigens nog steeds uit van het schijven- 
geheugen als opslagmedium. Nogmaals: voor cassette-apparatuur is 
de materie niet wezenlijk verschillend. De sequentiële bestandsorga- 
nisatie komt immers bij beide geheugenvormen voor. Mocht u niet 
over schijfapparatuur (floppy drives) beschikken, dan is dit hoofd- 
stuk dus toch relevant. 


Zoals eerder bij de toetsvragen aan het einde van het vorige hoofd- 
stuk opgemerkt, steunt dit hoofdstuk in belangrijke mate op de pro- 
gramma's en bestanden die daar ter sprake kwamen. 
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5.1 KOPIËREN VAN EEN SEQUENTIEEL BESTAND 


In deze paragraaf bespreken we een utility programma waarmee 
sequentiële bestanden kunnen worden gekopieerd. MSX BASIC 
beschikt over een COPY-opdracht voor het kopiëren van bestanden, 
Kijk in uw handleiding. U kunt dan op commandoniveau bestanden 
van de ene schijfeenheid naar de andere kopiëren. 


Behalve een kopieerprogramma op commandoniveau is ook een 
BASIC-versie interessant. Zo'n programma kan namelijk eenvoudig 
in andere programma's worden ingebouwd zodat ook op programma- 
niveau ('dynamisch') kan worden gekopieerd. Ook kunnen bestaande 
gegevensbestanden hiermee worden uitgebreid, Bovendien illustreert 
het goed hoe de diverse opdrachten als OPEN, INPUT # en PRINT # 
en de EOF-functie gebruikt moeten worden. 


De algemene aanpak voor het schrijven van zo'n kopieerprogramma 

is als volgt. 

1. Open het te kopiëren bestand voor invoer. 

2, Open een tweede bestand voor uitvoer. 

3. Test het invoerbestand op EOF-conditie; indien einde bestand, 
ga dan verder bij stap 7. 

4. Lees het eerste c.q. eerstvolgende record van het invoerbestand. 

5. Schrijf dit record naar het uitvoerbestand. 

6. Herhaal stappen 3 t/m 5 totdat bij stap 3 de EOF-conditie 
optreedt. 

7, Sluit beide bestanden. 


Opdracht 


(a) Neem aan dat u een bestand wilt kopiëren waarvan het aantal 
records onbekend is. Elk record bevat twee strings van 25 
tekens, gevolgd door twee numerieke waarden. Een programma 
is hieronder grotendeels gegeven. Geef de ontbrekende regels 
(nummers 240, 250, 320, 330, 340 en 420), daarbij uitgaande 
van de gegeven REMARKs. 


100 REM _KOPIEERPROGRAMMA 
110 REM 
120 REM _VARIABELENLIJST 


170 REM _ BESTANDEN 
200 REM _INITIALISEREN VAN BESTAND 
205 MAXFILES = 2 


220 LINE INPUT "NAAM INVOERBESTAND : "; F1$ 
230 LINE INPUT “NAAM UITVOERBESTAND : “; F2$ 
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U veneadenngen : REM *** OPEN INVOERBESTAND *** 
B nes : REM «ss OPEN UITVOERBESTAND +++ 
260 REM 
300 REM LEES RECORD EN SCHRIJF WEG 
310 REM 
SD. emeente : REM *** TEST OP EOF …… 
SU AE : REM *** LEES RECORD VAN IN- 

VOERBESTAND …… 
WU. vaneen : REM *** SCHRIJF RECORD NAAR 
UITVOERBESTAND …… 
350 GOTO 320 
360 REM 
400 REM AFSLUITEN EN STOPPEN 
410 REM 
RO Oo derne z REM *** SLUIT BESTANDEN hhad 
999 END 

(a) 240 OPEN F1$ FOR INPUT AS 1 
250 OPEN F2$ FOR OUTPUT AS 2 
320 IF EOF(1) THEN 420 
330 INPUT #1, AS, BS, A, B 
340 PRINT #2, AS; ","; BS; ","; A; B 
420 CLOSE 1, 2 


Opmerking: het forceren van komma's (regel 340) is essentieel voor 
een exacte kopie. 


Toetsvraag 


(a) Welke regel(s) in bovenstaand programma komen overeen met de 
stappen van de eerder genoemde algemene aanpak : 
1. Openen van het te kopiëren bestand. 
2. Openen van het uitvoerbestand. 
3. Testen van het invoerbestand op EOF; indien einde bestand, 
verder gaan bij stap 7. 
4. Lezen van het eerste c.q. eerstvolgende record. 
5. Schrijven van dit record naar het uitvoerbestand. 
6. Herhalen van stappen 3 t/m 5 tot EOF. 
7, Sluiten van beide bestanden. 


(b) Wat verschijnt bij het RUNnen van het programma op het 
scherm? 


(a) 1. 240 
2. 250 
3. 320 
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(b) RUN 


NAAM INVOERBESTAND : 
NAAM UITVOERBESTAND : 


Ok 


Zoals uit de laatste toetsvraag blijkt, verschijnt bij het RUNnen van 
het programma weinig uitvoer op het scherm. Tijdens de RUN kan 
de computer echter een behoorlijke activiteit ontplooien, waarbij het 
enige tijd kan duren voor de verlossende Ok boodschap verschijnt. 
En ook dan weten we niet met absolute zekerheid of alles naar wens 
is gegaan. Om aan dit bezwaar enigszins tegemoet te komen kunnen 
we het programma op de volgende punten modificeren. 


Ten eerste kunnen we na het afsluiten van de bestanden een bood- 
schap, die aangeeft dat het kopiëren voltooid is, laten afdrukken. 
Bijvoorbeeld: 


420 PRINT "KOPIEREN KLAAR" 
Een tweede modificatie is het uitvoerbestand onmiddellijk na het 


kopiëren voor invoer te openen, en enkele regels ter verificatie in 
te lezen en op het scherm af te drukken. Bijvoorbeeld: 


430 OPEN F2$ FOR INPUT AS 1 

440 PRINT : PRINT "GEKOPIEERDE FILE BEGINT MET:" 
450 FOR X = 1 TO 3 

460 INPUT #1, AS, B$, A, B 

470 PRINT AS, BS, A, B 

480 NEXT X 

490 CLOSE 1 


U hebt nu een volledige kopieer-utility tot uw beschikking. Door 
eenvoudig de INPUT #- en PRINT #-opdrachten in regels 330 en 340 
aan te passen aan de gewenste record-vorm, kunt u het programma 
gebruiken om een willekeurig sequentieel bestand te dupliceren. 


5.2 UITBREIDEN VAN EEN SEQUENTIEEL BESTAND 


We kunnen met APPEND heel eenvoudig gegevens aan een bestaand 
sequentieel bestand toevoegen. Als we het programma op p. 106/107 
als voorbeeld nemen en daarin alleen veranderen 

100 REM PROGRAMMA VOOR HET UITBREIDEN VAN EEN INVENTARISBESTAND 

èn 

210 OPEN “INVENT" FOR APPEND AS 1 

Dan hebben we een programma voor het toevoegen van gegevens aan 
het INVENT-bestand. MSX BASIC zorgt verder voor alles! 

Toch willen we aan de hand van een programma zonder APPEND 
laten zien hoe dit uitbreiden in zijn werk gaat. We gaan als het 
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ware iets doen, wat met APPEND het BASIC systeem ook moet doen. 


De methode om een bestand zonder gebruik te maken van APPEND 

uit te breiden is: 

1. Kopieer de reeds aanwezige gegevens naar een tijdelijk bestand. 

2. Voeg de nieuwe gegevens toe aan het einde van het tijdelijke 
bestand. 

3. Kopieer het tijdelijke naar het oorspronkelijke bestand. 


Laten we een eenvoudige toepassing bekijken. Neem aan dat u de 
computer gebruikt om een boodschappenlijst te maken voor een 
wekelijks bezoek aan de supermarkt (zie toetsvraag 2 aan het einde 
van hoofdstuk 2), Bij tijd en wijle merkt u dat de kritische voorraad 
van een of ander levensmiddel nadert, en u klimt dan ijverig in de 
toetsen om (al weer) een artikel aan uw geautomatiseerde bood- 
schappenlijstje toe te voegen. Iedere toevoeging vormt een record, 
bestaande uit een string van maximaal 20 tekens voor omschrijving 
van het artikel en één numerieke waarde voor de hoeveelheid of het 
aantal. 


Typisch een toepassing dus, waarbij een reeds aanwezig bestand 
met nieuwe gegevens wordt uitgebreid. De algemene procedure 
hiervoor is: 

1, Open het invoer- (= oorspronkelijke) bestand. 

2. Open het uitvoer- (= tijdelijke) bestand. 

3. Test het invoerbestand op EOF. Indien einde bestand, ga dan 

naar stap 7. 

Lees het eerste c.q. eerstvolgende record. 

Schrijf dit record naar het tijdelijke bestand. 

Herhaal de stappen 3 t/m 5 tot EOF voor het invoerbestand. 

Voer de nieuwe gegevens in en controleer ze. Denk daarbij aan 

de mogelijkheid voor de gebruiker om te kennen te geven dat hij 

klaar is met invoeren. 

8. Schrijf het nieuwe record naar het tijdelijke bestand. 

9, Herhaal de stappen 7 en 8 tot alle nieuwe gegevens zijn inge- 
voerd. 

10. Sluit beide bestanden. 

11. Open het tijdelijke bestand voor invoer. 

12. Open het oorspronkelijke bestand voor uitvoer (waarbij de 
inhoud verloren gaat). 

13. Test op EOF tijdelijk (= invoer-) bestand. Indien geen EOF, 
lees eerste c.q. eerstvolgende record en schrijf dit naar het 
oorspronkelijke (= uitvoer-) bestand. 

14, Sluit beide bestanden. 


EREN 


De ontwikkeling van het programma 


Bovenstaande procedure vertalen we nu in een concreet programma. 
Allereerst het inleidende deel: 
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1000 REM _BOODSCHAPPENLIJST 


1010 REM 

1020 REM meremennnenenenenenennennennenennnnnnnt nenten nnn 
1030 REM _INLEIDEND MODULE 

1040 REM semenmenmennmennnennenennnenenennennnnnnnnnnnnnnnenennnnnennennnnnen 
1050 REM 


1060 REM _VARIABELENLIJST 
1070 REM =A$ _: OMSCHRIJVING ARTIKEL 
1080 REM „=H : HOEVEELHEID 


1090 REM = NS __: NAAM VAN OORSPRONKELIJK BESTAND 
1100 REM = D$ _: VARIABELE T.B.V. DIALOOG 

1110 REM 

1020 REM BESTANDEN 

1130 REM 


1140 REM 1. NAAM IN TE VOEREN DOOR GEBRUIKER (N$) 

1150 REM 2. TIJDELIJK BESTAND “HULP” 

1160 REM 

1170 REM BEIDE BESTANDEN OP FLOPPY, SEQUENTIEEL GEORGANISEERD 
1180 REM 


Opdracht 


Maak het volgende initialisatiesegment in overeenstemming met de 
gegeven REMARKs af, 


1190 REM _BESTANDSINITIALISATIES 


1200 REM 
1205 MAXFILES = 2 
1210 LINE INPUT "NAAM INVOERBESTAND" : "; NS 
1220 .. . vanevvee vuur à REM *** OPEN INVOERBESTAND *** 
1230 : REM *** OPEN UITVOERBESTAND *** 
1240 REM 
(a) 1220 OPEN N$ FOR INPUT AS 1 
1230 OPEN “HULP” FOR OUTPUT AS 2 


N.B, Een logische keuze van buffernummers en volgorde van ope- 
nen dragen bij tot betere leesbaarheid van het programma. 


Het volgende programmasegment kopieert het oorspronkelijke 
bestand naar het hulpbestand. Omdat de kopieerbewerking verschil 
lende malen nodig is, kunnen we dit deel het beste in routine-vorm 
schrijven en het aan het einde van het programma opnemen. 


aanenmen 


2000 REM semtmemmnnnen, manttenteen 


2010 REM KOPIEERROUTINE BESTAND 1 --> 


2020 REM memeneennnnnnnentnentnenmnnnent 


wantnnnennnnnnennnnnnn 


martnnennnnnnentnennnkenntnnnenenenn 


2040 IF EOF(1) THEN RETURN 
2050 INPUT #1, AS, H 
2060 PRINT #2, AS, "‚"; H 
2070 GOTO 2040 
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De eerste aanroep kan aansluitend op de bestandsinitialisatie in de 
regels 1190 t/m 1240 plaatsvinden, bijvoorbeeld: 


1235 REM 

1236 GOSUB 2040 : REM *** OORSPRONKELIJK DEEL BESTAND KOPIEREN *** 
1237 REM 

Toetsvragen 


(a) Werkt de routine als het invoerbestand leeg is? 


(b) Op welke plaats staat de recordwijzer (pointer) van het uitvoer- 
bestand na afloop van RETURN, aannemende dat het kopiëren 
gelukt is en de routine direct na de bestandsinitialisaties wordt 
aangeroepen (regel 1250)? 


(a) Ja, mits het bestand op de schijf bekend is. Het bestand kan 
leeg of gevuld zijn. 

(b) Op de eerste plaats na het laatste gegeven in HULP, dat wil 
zeggen hij geeft de plaats aan waar het eerstvolgende gegeven 
moet worden opgeslagen. 


We kunnen nu vervolgens het gegevensinvoerdeel samenstellen . 


Opdracht 


(a) Maak het volgende programmasegment in overeenstemming met 
de gegeven REMARKs af. 


1250 REM smenenn 
1260 REM GEGEVENSINVOER EN -CONTROLE 


1270 REM smeemennnnteneenmennseernenenetertennenmsertnnnntennnnnnnenenennennen 


1280 REM 


annnenenennene: 


mennneen 


vrnnnnnenenenensenveenen 


1290 PRINT "GEEF 'STOP' OM TE EINDIGEN" 

1300 PRINT ** 

1310 REM 

1320 LINE INPUT “ARTIKEL (MAXIMAAL 20 TEKENS): *; AS 

1330  ssosnosennnsrrvernsnenverensverse : REM *** TEST OP STOP ns; 

1340 IF LEN(AS) = 0 THEN PRINT “GEEF ARTIKEL OMSCHRIJVING OF STOP AUB" : 
GOTO 1320 

1350  onsnenerersendsrdnsenssadssvenin : REM *** TEST OP MAX. LENGTE ++ 

1360 REM 

1370 INPUT "HOEVEELHEID aL! 

1380 IF Hoe 1 AND H < 10 THEN 1450 

1390 PRINT "HOEVEELHEID WAS “; H; "AKKOORD? (J/N): “; DS 

1400 LINE INPUT D$ 

1410 IF LEFTS(DS,1) = “N" THEN 1370 

1420 REM 


1430 REM SCHRIJF NAAR HULPBESTAND EN HERHAAL 
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150 ssavvoroevsnerrseassusdnnedseenee : REM =ee NIEUW GG, —> tek 
1460 GOTO 1320 

1470 REM 

1480 REM AFSLUITEN 

1490 REM 


1500 susveorverserrvenvvenvennvvvennen : REM *** SLUIT BESTANDEN met 


(a) 1330 IF A$ = "STOP" THEN 1500 
1350 IF LEN(AS) > 20 THEN 
PRINT "MAX. 20 TEKENS. OPNIEUW AUB“ : GOTO 1320 
1450 PRINT #2, AS; "‚"; H 
1500 CLOSE 1, 2 


Het grootste deel van de klus is nu geklaard. De oude en nieuwe 
gegevens zijn namelijk samen ondergebracht in het tijdelijke hulp- 
bestand, dat nu kan worden teruggekopieerd naar het oorspronke- 
lijke bestand, Hiervoor kunnen we de eerder geschreven kopieer 
routine gebruiken. 


Opdracht 


(a) Maak het volgende programmasegment in overeenstemming met 
de gegeven REMARKs af. 


1520 REM BESTANDEN HER-OPENEN 


1530 REM 
1540 vensevevenvvennenensenresnen : REM *** OPEN INVOERBESTAND *** 
1550  sasensarseervere vnenvenmenmenenen : REM *** OPEN UITVOERBESTAND *** 
1560 REM 


1570 REM KOPIEER TIJDELIJK --> OORSPRONKELIJK BESTAND EN SLUIT AF 
1580 REM 


1590 sasvseerenerenenvvenven veeeneenen : REM *** ROEP KOPIEERMODULE *** 
1600 REM 
1610 CLOSE 1, 2 
1620 „oanonsersenenvenensveneverenenen : REM *** BEVESTIG AFSLUITEN *** 
1630 REM 
1640 END 
1650 REM 
(a) 1540 OPEN "HULP" FOR INPUT AS 1 
1550 OPEN N$ FOR OUTPUT AS 2 
1590 GOSUB 2040 


1620 PRINT "KOPIEREN KLAAR" 
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Toetsvraag 


(a) Wat gebeurt er met de inhoud van het door NS aangegeven 
bestand bij uitvoering van regel 1550? 

(a) De inhoud gaat bij het openen in OUTPUT-mode verloren (maar 
wordt later vervangen door de inhoud van HULP). 


Overzicht volledig programma 


Voor het overzicht van het geheel drukken we het volledige pro- 
gramma af. Eventueel kan nog een KILL-opdracht worden toege- 
voegd om het tijdelijke hulpbestand — dat onnodig schijfruimte in 
beslag neemt — te verwijderen. Bijvoorbeeld: 


1625 KILL "HULP" 


Verder is het verstandig eerst een backup exemplaar (dat wil zeg- 
gen een kopie) van het oorspronkelijke bestand te maken alvorens 
het programma te draaien. Hiervoor kan gebruik worden gemaakt 
van het in $ 5.1 ontwikkelde utility-programma. 


1000 REM _BOODSCHAPPENLIJST 
TODD REN esvsevenvennereneevensevenenvenensensnsnvenensevevenseveneneeventeven 
1030 REM _INLEIDEND MODULE 


1040 REM semmannnmenvvennennverssenrserenensnnerennenvevenvenvenentennvnennven 


1060 REM VARIABELENLIJST 

= A$ _ : OMSCHRIJVING ARTIKEL 
HOEVEELHEID 
NAAM VAN OORSPRONKELIJK BESTAND 
JARIABELE T.B.V. DIALOOG 


1080 REM -H 
1090 REM - NS 
1100 REM - D$ 


1120 REM BESTANDEN 


1140 REM 1, NAAM IN TE VOEREN DOOR GEBRUIKER (N$) 
1150 REM 2. TIJDELIJK BESTAND "HULP" 


1170 REM BEIDE BESTANDEN OP FLOPPY, SEQUENTIEEL GEORGANISEERD 
1190 REM _BESTANDSINITIALISATIES 


1200 REM 

1205 MAXFILES = 

1210 LINE INPUT "NAAM INVOERBESTAND 5 SENS 
1220 OPEN N$ FOR INPUT AS 1 

1230 OPEN "HULP" FOR OUTPUT AS 2 

1235 REM 

1236 GOSUB 2040 

1237 REM 

1240 REM 


1250 REM semenennenenrvervenneveerennenerveeenvveerenenenvenenveentnnnnennnnnn 
1260 REM GEGEVENSINVOER EN -CONTROLE / VERWERKING 

1270 REM semenmenenenneeeenennenensenvervenenerentennnneernnntnvennndnnenenn 
1280 REM 

1290 PRINT “GEEF 'STOP' OM TE EINDIGEN" 

1300 PRINT 

1310 REM 
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1320 LINE INPUT "ARTIKEL (MAXIMAAL 20 TEKENS): "; AS 
1330 IF A$ = "STOP" THEN 1500 
1340 IF LEN(AS) = O THEN PRINT “GEEF ARTIKEL OMSCHRIJVING OF STOP AUB" : 
GOTO 1320 
1350 IF LEN(AS) > 20 THEN 
PRINT “MAX. 20 TEKENS. OPNIEUW AUB" : GOTO 1320 
1355 REM *** TEST OP MAX, LENGTE *** 
1360 REM 
1370 INPUT “HOEVEELHEID kh! 
1380 IF Hoe 1 AND H < 10 THEN 1450 
1390 PRINT “HOEVEELHEID WAS “; H; “AKKOORD? (J/N): "; 
1400 LINE INPUT DS 
1410 IF LEFTS(D$,1) = *N" THEN 1370 
1420 REM 
1430 REM SCHRIJF NAAR HULPBESTAND EN HERHAAL 
1440 REM 
1450 PRINT #2, A$, "‚,"; H : REM *e** NIEUW GG. -> HULP *et 
1460 GOTO 1320 
1470 REM 
1480 REM AFSLUITEN 
1490 REM 
1500 CLOSE 1, 2 : REM *** SLUIT BESTANDEN aide 
1510 REM 
1520 REM BESTANDEN HEROPENEN 
1530 REM 
1540 OPEN "HULP" FOR INPUT AS 1 : REM *** OPEN INVOERBEST, hiet 
1550 OPEN N$ FOR OUTPUT AS 2 : REM *** OPEN UITVOERBEST, te 
1560 REM 
dan En KOPIEER TIJDELIJK --> OORSPRONKELIJK BESTAND EN SLUIT AF 
1 REM 
1590 GOSUB 2040 
1600 REM 
1610 CLOSE 1, 2 
1620 PRINT “KOPIEREN KLAAR" : REM *** BEVESTIG AFSLUITEN *** 
1630 REM 
1640 END 
1650 REM 


2000 REM ttenmmeenmnnnmennennntnenndennmennnnnnnennennentnnnennnennnenntenen 


2010 REM KOPIEERROUTINE BESTAND 1 --> BESTAND 2 


2020 REM semenmnnnaneeennennetennnnnenenernnnntenennnrenrenennnnnenvnnennnenrn 


2040 IF EOF(1) THEN RETURN 
2050 INPUT #1, AS, H 
2060 PRINT #2, AS, “‚"; H 
2070 GOTO 2040 

2080 REM 

9999 END 

Toetsvraag 


(a) Bepaal welke regel(s) in bovenstaand programma overeenkomen 
met de stappen van de eerder genoemde procedure. 
1. Open invoerbestand. 
2. Open tijdelijk uitvoerbestand. 
3. Test invoerbestand op EOF; indien einde bestand, ga naar 
stap 7. 
4. Lees eerste c.q. eerstvolgende record. 
5. Schrijf record naar tijdelijk bestand. 
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6. Herhaal stappen 3 t/m 5 tot EOF voor invoerbestand. 

7. Voer in en controleer nieuwe gegevens. 

8. Schrijf nieuw record naar tijdelijk bestand, 

9, Herhaal stappen 7 en 8 tot alle gegevens zijn ingevoerd. 

10. Sluit beide bestanden. 

11. Open tijdelijk bestand voor invoer. 

12. Open oorspronkelijk bestand voor uitvoer. 

13. Indien geen EOF voor invoerbestand, lees record en schrijf 
naar uitvoerbestand. 

14. Sluit beide bestanden. 


(a) 1, 1220 8, 1450 
2. 1230 9, 1460 
3. 1236 / 2040 t/m 2070 10. 1500 
4. 2050 11. 1540 
5. 2060 12. 1550 
6. 2070 13. 1590 / 2040 t/m 2070 
7. 1290 t/m 1410 14. 1610 


Alternatieve procedure 


Ook bij het uitbreiden van bestanden zijn er verschillende wegen 
die naar Rome leiden. De volgende procedure is gebaseerd op het 
gebruik van arrays. De toepasbaarheid hangt af van de beschikba- 
re hoeveelheid geheugen. 


… Open het uit te breiden bestand voor invoer. 

„ Kopieer de gehele inhoud van het bestand naar één of meer 
arrays. 

Sluit het invoerbestand. 

„ Heropen het bestand, ditmaal voor uitvoer. 

„ Schrijf de inhoud van de array(s) terug naar het bestand. 

… Voeg de nieuwe gegevens toe aan het einde van het bestand. 
» Sluit het bestand. 


oe 


Inns 


De procedure is alleen geschikt voor kleine bestanden, waarbij 
bovendien eventuele deelvelden van een record samen als één string 
te manipuleren zijn. Doorgaans zal de eerste procedure aan te 
bevelen zijn. 


5.3 MUTEREN VAN EEN SEQUENTIEEL BESTAND 


We hebben gezien dat een bestand, dat voor invoer is geopend, uit- 
sluitend kan worden gelezen. Omgekeerd kan een bestand, dat 
voor uitvoer is geopend, uitsluitend worden beschreven, Eventueel 
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eerder aanwezige gegevens gaan daarbij verloren. Eenmaal in een 
bestand opgenomen kan een gegeven dus niet zonder meer worden 
gewijzigd. Ook hier is dus een omweg nodig. Die komt erop neer dat 
de oorspronkelijke gegevens record voor record worden ingelezen. 
Aan de hand van een in te voeren kenmerk — de zogenaamde zoek- 
sleutel — wordt voor ieder record bepaald of hij het te veranderen 
gegeven bevat. Zo ja, dan wordt het record aangepast en naar een 
tijdelijk uitvoerbestand geschreven. Zo neen, dan wordt het record 
rechtstreeks naar het uitvoerbestand geschreven. Nadat alle 
records op deze wijze zijn verwerkt, wordt het tijdelijke bestand 

— dat nu alle gegevens in de gewenste vorm bevat — teruggekopieerd 
naar het oorspronkelijke bestand. 


We lichten dit toe aan de hand van een concreet geval: een pro- 
gramma voor het veranderen van de kredietcode in een klantenbe- 
stand van een klein bedrijf (zie toetsvraag 3, einde hoofdstuk 4). 
Elk record bevat drie deelvelden: 

1. Een 5-cijferig klantnummer (precies 5 cijfers). 

2. Naam van de klant (maximaal 20 tekens). 

3. Kredietcode van de klant (cijfer 1, 2, 3, 4of 5). 


Doel van het programma is de kredietcode van een of meer klanten 
te veranderen op basis van een door de gebruiker in te voeren 
klantnummer . 


Een voorbeeld-RUN (waarbij de cursieve tekst de gebruikers- 
respons voorstelt) is: 


RUN 

NAAM INVOERBESTAND : KCODE1 

GEEF 'STOP' (ZONDER Aan „TEKENS) ALS U KLAAR BENT 
KLANTNUMMER 13762 


KLANTNR. 13762 KOMT Mer VOOR IN BESTAND. CONTROLEER EN VOER REGEL OPNIEUW IN 
KLANTNUMMER 1 13763 

GARAGE V.D.PANNE, SREDIETEODE: 3 

NIEUWE KREDIETCODE : 

NOG EEN KLANT? (J/N) : i 

KLANTNUMMER * 11127 

BOUWBEDRIJF ROTHUIZEN, BREDIETEODE: 1 

NIEUWE KREDIETCODE 

NOG EEN KLANT? (J/N) : H 

EINDE PROGRAMMA 


Ok 
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De volgende procedure geeft aan hoe we een en ander kunnen 
bereiken. 


1e 
2. 
3. 


Open het invoerbestand. 
Open een tijdelijk uitvoerbestand. 


Voer het kenmerk in waarmee het aan te passen record kan wor- 
den vastgesteld (in ons geval het nummer van de klant wiens 
kredietcode moet worden veranderd). Denk daarbij aan invoer- 
controle en aan de mogelijkheid om te stoppen. 


Test op EOF voor het invoerbestand. Indien einde bestand: 

a. geef melding dat het record niet gevonden is; 

b. sluit beide bestanden (om de pointers terug te zetten naar 
het begin van het bestand); 

ec. herhaal de stappen 1 t/m 4 totdat de gebruiker te kennen 
geeft dat hij wil stoppen. 


Lees een volledig record van het invoerbestand. 


Test of het in stap 3 ingevoerde kenmerk gelijk is aan de 

inhoud van het overeenkomstige record. 

Zo ja: 

a. druk het gevonden record af, en vraag de gebruiker het 
nieuwe gegeven (in ons geval de kredietcode) in te voeren; 

b. controleer het nieuwe gegeven op geldigheid; 

e. stel het nieuwe record samen en schrijf dit naar het tijdelijke 
uitvoerbestand; 

d. schrijf de resterende records rechtstreeks van invoer- naar 
uitvoerbestand. 

Zo neen: 

e. schrijf record naar uitvoerbestand, en herhaal vanaf stap 4. 


Open beide bestanden opnieuw, maar ditmaal het oorspronkelijke 
bestand voor uitvoer, en het tijdelijke voor invoer (de inhoud 
van het oorspronkelijke bestand gaat daarbij verloren). 


Kopieer de inhoud van het tijdelijke bestand — dat nu de nieuwe 
versie is — naar het oorspronkelijke bestand. 


Sluit bij EOF van het tijdelijke bestand beide bestanden. 


„ Stel de gebruiker in de gelegenheid de gehele procedure te 


herhalen. 


Net als in de vorige paragraaf, ontwikkelen we het programma stap 
voor stap. Allereerst de inleidende module. 


Opdracht 


Maak het volgende programmasegment in overeenstemming met de 
gegeven REMARKs af. 
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(a) 

1000 REM WIJZIGEN KREDIETCODE 

1010 REM 

1020 REM stentanmmmenenensnkenneensnnnenvenndersnnvennverreserennerdn oneven 


1030 REM _INLEIDEND MODULE 


1040 REM smemtamemennmenmentnntnnnentnnentenenenentnnnnenenentnnnnsennddeenen 


1050 REM 
1060 REM _VARIABELENLIJST 
1070 REM -B$ z NAAM VAN BESTAND 


1080 REM = NIS z KLANTNUMMER IN BESTAND 
1090 REM = N2$ : OPGEGEVEN KLANTNUMMER 
1100 REM -K$ KLANTNAAM 

1110 REM -C1 KREDIETCODE IN BESTAND 
1120 REM = C2$/C2 : OPGEGEVEN KREDIETCODE 


1130 REM = AS : DIALOOG 
1140 REM 

1150 REM BESTANDEN 

1160 REM 


1170 REM 1. OORSPRONKELIJK BESTAND OP FLOPPY, NAAM IN TE VOEREN DOOR 
1180 REM GEBRUIKER (BS) 
1190 REM 2. TIJDELIJK HULPBESTAND "HULP" 


1200 REM 
120 REM BEIDE BESTANDEN SEQUENTIEEL GEORGANISEERD 
M 
1230 REM _ INITIALISATIES 
1240 REM 
1250 CLS: MAXFILES = 2 
1260 LINE INPUT "NAAM INVOERBESTAND £ “Bs 
1270 OPEN BS FOR INPUT AS 1 
1280 OPEN "HULP" FOR OUTPUT AS 2 
1290 REM 
1300 REM vemereanerveenveeneen 
1310 REM 
1320 REM 
1330 REM 
1340 PRINT "GEEF 'STOP' (ZONDER AANH. TEKENS) ALS U KLAAR BENT" 
1350 PRINT 
1360 LINE INPUT “KLANTNUMMER gr ard2s 
1370 IF N2$ = "STOP" THEN 2100 
1380 8 : REM *** MELDING INDIEN NULSTRING *** 
1390 zeiwandnenrnansinensersnasses OREN OR TEST OPE: CTORERS ……. 
MO aa warenneeneerrenrsner t REM #** TEST OP NUMERIEKE WAARDE +++ 
1410 REM 
(a) 1380 IF LEN(N2$) = 0 THEN 
PRINT "GEEF KLANTNUMMER OF 'STOP'* : GOTO 1360 
1390 IF LEN(N2$) <> 5 THEN 
PRINT “INVOERFOUT. 5 CIJFERS AUB" : G0TO 1360 
1400 IF VAL(N25) = 0 THEN 


PRINT “INVOERFOUT. ALLEEN GETALLEN AUB" : GOTO 1360 
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Nu wordt het interessanter. Het programma moet nu in het invoer 
bestand het record van de gewenste klant opsporen. Aan de hand 
van de volgende vragen kunt u zelf bedenken hoe dat in zijn werk 
gaat. 


(a) Wat zou het programma moeten doen als tijdens het doorzoeken 
van het gegevensbestand de EOF-conditie optreedt zonder dat 
het gewenste record gevonden is? 


(b) Wat moet er met de bestanden gebeuren voordat het programma 
het record van een volgende klant kan gaan zoeken? 


(e) Maak het volgende programmasegment in overeenstemming met 
de gegeven REMARKs af (regels 2050 en 2070). 


2000 REM mannnnenenernennensenrsnenenenenservervensenvernenren 
2010 REM 
2020 REM menantmneneerensversevnnennereverenennnereverervenevvvnennen 
2030 REM 
2040 IF EOF(1) THEN 2090 
2050 snansonnnevenvensserensnrverre : REM *** LEES VAN BESTAND NAAR 

NIS, K$ en C1 ten 
2060 IF N2$ = N1$ THEN 2150 
2070 vnnenvensensensnnennensnneneee : REM *** KLANTNUMMER KLOPT NIET, 

SCHRIJF NAAR HULP ee’ 
2080 GOTO 2040 
2090 PRINT “seeFOUTeseKLANTNR, "; N2$; “KOMT NIET VOOR IN BESTAND, 

CONTROLEER EN VOER OPNIEUW IN AUB" 
2100 CLOSE 1, 2 : REM *** ZET WIJZERS TERUG NAAR 
BEGIN *** 

2110 GOTO 1270 
2120 REM 


(d) Stel dat u regel 2100 verwijdert en het programma vervolgens 
RUNt, eerst met een incorrect klantnummer en dan met een cor- 
rect klantnummer. Wat gebeurt er? 

(a) Melden dat het opgegeven klantnummer niet in het bestand 
voorkomt (zie de demonstratie-RUN aan het begin van deze 
paragraaf, en regel 2090 hierboven). 


(b) De bestanden moeten gesloten en opnieuw geopend worden om 
de wijzers weer aan het begin van de bestanden te positioneren 
(zie regel 2100). 


(ec) 2050 INPUT #1, NIS, KS, C1 
2070 PRINT #2, NIS; *,"; KS; ","; CI 


(d) In beide gevallen ontstaat een EOF-conditie. Via de regels 2040 
en 2090 wordt een foutmelding afgedrukt. 


Wordt het gewenste record gevonden, dan laten we de desbetreffen- 
de naam en de daarbij gevonden kredietcode op het scherm ver- 
schijnen (regel 2160), zodat de gebruiker kan controleren of de 
kredietcode voor de juiste klant wordt aangepast. 


2130 be KLANTNUMMER GEVONDEN, GA VERDER MET INVOER 


2140 Ri 
2150 PRINT 
2160 PRINT KS, “, KREDIETCODE: *; C1 
2170 LINE INPUT AE KREDIËTCÔDE: *; C2$ 
2180 IF LEN(C2$) © 1 TH 
PRINT "1 CIJFER AUB" GOTO 2170 
2190 IF VAL(C2s) < 1 OR VAL(C2S) > 5 “TEN 
PRINT “CIJFER VAN 1 T/M 5 AUB" : GOTO 2170 
2200 LET C2 = VAL(C2$) 
2210 REM 
2220 REM SCHRIJF NIEUW RECORD NAAR HULPBESTAND 
2230 REM 
2240 PRINT #2, NIS; "‚"; K$; “‚,“; C2 
2250 REM 


In regel 2240 wordt de nieuwe kredietcode, samen met de klantnaam 
en het klantnummer die daarbij behoren, naar het hulpbestand weg- 
geschreven. Daarmee zijn we op het punt aangeland dat er routines 
ontwikkeld zijn voor het doorzoeken van het oorspronkelijke 
bestand, en voor het plaatsen van oude en nieuwe gegevens in het 
bestand HULP, Aan de hand van de volgende vragen en opdrach- 
ten maken we het programma af. 


Vraag 


(a) Welke actie moet in dit stadium, gezien de stand van de record- 
wijzer in bestand 1, worden ondernomen? 

(a) De resterende gegevens in het (oorspronkelijke) invoerbestand 
(buffer 1) moeten naar het hulpbestand (buffer 2) worden 
overgebracht. 


Opdracht 


(a) Maak het volgende programmasegment in overeenstemming met 
de gegeven REMARKs af (regels 2280, 2290 en 2300). 


2260 REM SCHRIJF RESTERENDE GEGEVENS NAAR HULPBESTAND 

2280  saaonancvenerensansorntervvene : REM *** INDIEN EOF GA NAAR CLOSE *** 
220 varnenernrvervinseersrrresnens : REM *** LEES VAN #1 heil 
200  aawonsarseimeinenencinenerdde : REM *** SCHRIJF NAAR #2 ick! 
2310 GOTO 2280 

2320 REM 

2330 REM SLUIT BESTANDEN 

2340 REM 


2350 CLOSE 1, 2 
2400 REM 
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(a) 2280 IF EOF(1) THEN 2350 
2290 INPUT #1, NI$, K$, C1 
2300 PRINT #2, N1$; ", 


Opdracht 


(a) Het volgende programmasegment kopieert de inhoud van het 
hulpbestand naar het oorspronkelijke bestand. Maak het seg- 
ment in overeenstemming met de gegeven REMARKs af. 


3000 REM _INITIALISEER BESTANDEN EN KOPIEER HULPBESTAND TERUG 


3010 REM 
300 vsovosersnerverssnnseneneneens : REM «+ OPEN INVOERBESTAND hie 
3030 vsevesmesanevandrenserenserne : REM +++ OPEN UITVOERBESTAND … 
3040 REM 
3050 IF EOF(1) THEN 3120 
3060 snrnnnnenenevenrrenree : LEES RECORD VAN INVOERBESTAND hid 
3070 sssnennerensserervene. : REM *** SCHRIJF RECORD NAAR UITVOERBEST, *** 
3080 GOTO 3050 
3090 REM 
SIOD REN SLUIT BESTANDEN EN BEPAAL OF HERIALING MOOIS 15 
110 REM 
A20 ranmmesonsedernins : REM *+* SLUIT BESTANDEN 1 EN 2 heal 
3130 CLS 
3140 LINE INPUT "NOG EEN KLANT? (J/N): *; AS 
3150 IF LEFTS(AS,1) = "J" THEN 1270 
3160 PRINT "EINDE PROGRAMMA” 
3170 REM 
(a) 3020 OPEN “HULP” FOR INPUT AS 1 
3030 OPEN BS FOR OUTPUT AS 2 
3060 INPUT #1, NIS, KS, C1 
3070 PRINT #2, NIS; *‚*; KS; *,"; C1 
3120 CLOSE 1, 2 


Draait u dit programma met grote bestanden, dan kan iedere muta- 
tie een aanzienlijke hoeveelheid computertijd vergen. Door de gege- 
vens in het oorspronkelijke bestand en de mutaties in volgorde van 
klantnummer te ordenen, vervalt de noodzaak om resterende 
bestandsgegevens steeds naar het hulpbestand te kopiëren. Regels 
2260 t/m 3120 hoeven in dat geval slechts na de laatste mutatie uitge- 
voerd te worden. Dit is in het onderstaande overzicht niet verwerkt. 
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Overzicht volledig programma 


1000 REM WIJZIGEN KREDIETCODE 
1010 


1020 REM semmmenmennmennnennnennnnennnnnnnnennnnntennnnnnnenn nennen nen 


1030 REM _INLEIDEND MODULE 


1040 REM vemmenmenenmeerenensenrnnensenensnennenen 


annennnnenennnnnneneennnen 


1050 REM 

1060 REM RAERD 

1070 REM : NAAM VAN BESTAND 

1080 REM - wis : KLANTNUMMER IN BESTAND 
1090 REM _- N2$  : OPGEGEVEN KLANTNUMMER 
1100 REM - K$ :_KLANTNAAM 

1110 REM - CI : KREDIETCODE IN BESTAND 
1120 REM - C2$/C2 : OPGEGEVEN KREDIETCODE 
1130 REM _ - A$ : DIALOOG 

1140 REM 

1150 REM BESTANDEN 

1160 REM 


1170 REM 1, OORSPRONKELIJK BESTAND OP FLOPPY, NAAM IN TE VOEREN DOOR 
1180 REM GEBRUIKER (BS) 
1190 REM 2, TIJDELIJK HULPBESTAND “HULP” 


1200 REM 

1210 REM BEIDE BESTANDEN SEQUENTIEEL GEORGANISEERD 
1220 REM 

1230 REM _ INITIALISATIES 

1240 REM 

1250 CLS _: MAXFILES = 2 

1260 LINE INPUT "NAAM INVOERBESTAND : * BS 
1270 OPEN B$ FOR INPUT AS 1 

1280 OPEN “HULP” FOR OUTPUT AS 2 

1290 REM 


1300 REM smenennvenvennnerenmennennnenennenennenrennnennsnennennnnennennnnnnen 


1320 REM werenennnvenennnnen 
1330 REM 
1340 PRINT SGEEF 'STOP' (ZONDER AANH. TEKENS) ALS U KLAAR BENT" 
1350 PRINT * 
1360 Er INPUT "KLANTNUMMER : *; N25 
1370 F N2$ = "STOP" THEN 2100 
1380 a LEN(N2S) = 0 THEN 

PRINT “GEEF KLANTNUMMER OF 'STOP'* : GOTO 1360 
1390 IF LEN(N2S) > 5 THEN 

PRINT “INVOERFOUT. 5 CIJFERS AUB" : GOTO 1360 
1400 IF VAL(N2S) = 0 THEN 
Pen PRINT “INVOERFOUT. ALLEEN GETALLEN AUB" : GOTO 1360 
1410 REM 


2000 REM seannneervennnnerverensennennennnnenenennnennnnnnnnnnnnnnenndnnnnnnee 


2010 REM _ZOEKROUTINE 
teeneneesen, 


2020 REM enennenenennnenennenenternenenevensnnnnetenenennvenenen 
2030 REM 
2040 IF EOF(1) THEN 2090 
2050 INPUT #1, NI$, K$, C1 : REM *** LEES VAN BESTAND NAAR 
1S, KS en C1 en 

2060 IF N2$ = NIS THEN 2150 
2070 PRINT #2, NIS; "‚"; KS; “‚"; C1 : REM *** KLANTNUMMER KLOPT 

NIET. SCHRIJF NAAR HULP **e 
2080 GOTO 2040 
2090 PRINT "«esFOUTsssKLANTNR, "; N2S; "KOMT NIET VOOR IN BESTAND. 

CONTROLEER EN VOER oben IN AUB" 

2100 CLOSE 1, 2 : REM vee ZET WIJZERS TERUG NAAR BEGIN *** 
2110 GOTO 1270 


2120 REM 
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2130 REM KLANTNUMMER GEVONDEN, GA VERDER MET INVOER 


2140 REM 
2150 PRINT ** 
2160 PRINT KS, “, KREDIETCODE: *; C1 
2170 LINE INPUT NIEUWE KREDIËTCODE: *; C2$ 
2180 IF LEN(C2S) <> 1 THEN 
PRINT “1 CIJFER AUB“ : GOTO 2170 
2190 IF VAL(C2S) < 1 OR VAL(C2S) > 5 THEN 
PRINT "CIJFER VAN 1 T/M 5 AUB" : GOTO 2170 
2200 LET C2 = VAL(C25) 
2210 REM 
2220 REM SCHRIJF NIEUW RECORD NAAR HULPBESTAND 
2230 REM 
2240 PRINT #2, NIS; "‚"; KS; ",*; C2 
2250 REM 
2260 REM SCHRIJF RESTERENDE GEGEVENS NAAR HULPBESTAND 
2270 REM 
2280 IF EOF(1) THEN 2350 : REM +» INDIEN EOF GA NAAR CLOSE *++ 
2290 INPUT #1, NIS, KS, C1 : REM *** LEES VAN #1 
2300 PRINT #2, NIS; "‚*; KS; "‚"; CI : REM *** SCHRIJF NAAR #2 …… 
2310 GTO 2280 
2320 REM 
2330 REM SLUIT BESTANDEN 
2340 REM 
2350 CLOSE 1, 2 
2400 REM 


3000 REM _INITIALISEER BESTANDEN EN KOPIEER HULPBESTAND TERUG 


3020 OPEN "HULP" FOR INPUT AS 1 

3030 OPEN B$ FOR OUTPUT AS 2 

3040 REM 

3050 IF EOF(1) THEN 3120 

3060 INPUT #1, NIS, KS, C1 : REM *** LEES RECORD VAN INVOERBEST, *** 

3070 PRINT #2, M$; "3 KS; “,"; C1 : REM *** SCHRIJF RECORD NAAR 
UITVOERBESTAND kad 

3080 GOTO 3050 

3090 REM 

3100 REM SLUIT BESTANDEN EN BEPAAL OF HERHALING NODIG IS 

3110 REM 

3120 CLOSE 1, 2 : REM *** SLUIT BESTANDEN 1 en 2 kv 

3130 CLS 

3140 LINE INPUT "NOG EEN KLANT? (J/N): * 

3150 IF LEFTS(AS,1) = "J" THEN 1270 

3160 PRINT “EINDE PROGRAMMA" 

3170 REM 

9999 END 

Toetsvragen 


(a) Bepaal welke regel(s) in bovenstaand programma overeenkomen 
met de stappen van de eerder genoemde procedure (zie p.143). 


(b) Modificeer het programma zodanig dat in plaats van de krediet- 
eode de naam van de klant wordt veranderd (bedrijven — vooral 
dubieuze — hebben nogal eens de neiging om van naam te ver- 
anderen!). Er zijn slechts vijf wijzigingen nodig. 
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(a) 1. 1270 5. 2050 7. 3020, 3030 
2. 1280 6. 2060 8, 3050 t/m 3080 
3. 1340 t/m 1400 a. 2160, 2170 9. 3050, 3120 
4. 2040 b. 2180, 2190 10, 3140, 3150 
a. 2090 e. 2200, 2240 
b. 2100 d. 2280 t/m 2310 
e. 2110 e. 2070, 2080 
(b) 2170 LINE INPUT "NIEUWE NAAM : "; K$ 
2180 IF LEN(KS) = 0 THEN 
PRINT “VOER NIEUWE NAAM IN AUB" : GOTO 2170 
2190 IF LEN(KS) > 20 THEN 
PRINT “MAXIMAAL 20 TEKENS. OPNIEUW AUB" : GOTO 2170 


2200 REM *#* DEZE REGEL VERWIJDERD *** 
2240 PRINT #2, NIS; "‚"; KS; "‚"; C1 


N.B. Dankzij het feit dat volledige records werden gelezen en 
(al dan niet gemodificeerd) weggeschreven, konden de wij- 
zigingen tot een minimum beperkt blijven. Iets om te ont- 
houden! 


54 EDITTEN VAN EEN SEQUENTIEEL BESTAND 


Onder 'editten' (een in de computerwereld vrij gangbare verbaste- 
ring van het Engelse werkwoord 'to edit', dat 'redigeren' betekent) 
verstaan we het stapsgewijs zichtbaar maken van een bestand op het 
scherm, met de mogelijkheid delen van het bestand te wijzigen of te 
verwijderen, of nieuwe gegevens toe te voegen. 


In deze paragraaf bespreken we een utility-programma om gege- 
vensbestanden te editten. We gaan daarbij uit van dezelfde toepas- 
sing als in de vorige paragraaf, namelijk het klantenbestand met 
kredietcodes. De recordindeling daarbij — om nog even te recapitu- 
leren — was als volgt: 


1. klantnummer van precies 5 cijfers 

2. klantnaam van maximaal 20 tekens 

3. kredietcode, opgeslagen als een numerieke waarde van 1, 2, 3, 
4 of 5. 


Eerste versie: veldgewijs afdrukken van record 
We nemen een eerste aanzet met het onderstaande programma, 


waarbij we elk record veld voor veld op het scherm toveren door 
steeds de RETURN-toets in te drukken. Nadat alle velden van 
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een record op het scherm verschenen zijn, en we dus op het punt 
staan een nieuw record te bekijken, laten we het programma door 
middel van een CLS-opdracht het scherm schoonmaken . 


Het programma ziet er als volgt uit: 


Eerd REM _EDIT-PROGRAMMA VOOR KLANTENBESTAND (VERSIE 1) 

1010 REM 

1020 REM _VARIABELENLIJST 

1030 REM =N$ _ : KLANTNUMMER 

1040 REM = KS __: NAAM VAN KLANT 

1050 REM -E : KREDIETCODE 

1060 REM =B$ _: NAAM VAN BESTAND 

1070 REM _-A$ _: DIALOOG 

1080 REM 

1090 REM BESTANDEN 

Ja Rel = SEQUENTIEEL/FLOPPY (1X), NAAM DOOR GEBRUIKER TE BEPALEN 
M 

1120 REM 

1130 LINE INPUT "NAAM BESTAND: "; B5 

1140 OPEN BS FOR INPUT AS 1 

1150 REM 

1160 REM LEES RECORD EN DRUK VELDEN AF OP SCHERM 

1170 REM 

1180 IF EOF(1) THEN 1340 

1190 CLS 

1200 PRINT "GEEF RETURN OM DOOR TE GAAN" 

1210 INPUT #1, NS, C 

1220 PRINT N$ 

1230 LINE INPUT A$ 

1240 REM 

1250 PRINT K$ 

1260 LINE INPUT A$ 

1270 REM 

1280 PRINT C 

1290 LINE INPUT A$ 

1300 GOTO 1180 

1310 REM 

1320 REM AFSLUITING 

1330 REM 

1340 CLOSE 1 

1350 PRINT "EINDE PROGRAMMA" 

1360 REM 

9999 END 

Toetsvragen 


(a) Wat wordt aan AS$ toegekend in de regels 1230, 1260 en 1290? 
(b) Wat is de bedoeling van de regels 1230, 1260 en 12907 


(e) Wanneer wordt in bovenstaand programma het scherm schoon- 
gemaakt? 


(a) Niets, A$ functioneert als een 'dummy' (dummy = schijn, loos) 
variabele. 

(b) De gegevens op het scherm vast te houden tot RETURN gege- 
ven wordt. 
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(e) Vóór het afdrukken van de gegevens van een nieuw record. 


Tweede versie: recordvelden veranderen ('change') 


We passen het programma nu zo aan, dat de gebruiker de verschil 
lende velden van een record kan veranderen. Daarbij gebruiken we 
een tijdelijk hulpbestand (HULP). Voorlopig beperken we ons tot 
het veranderen van het klantnummer 


1000 REM 
1010 REM 
1020 REM _VARIABELENLIJST 

1030 REM =N$ z_ KLANTNUMMER 
1040 REM = K$ : NAAM VAN KLANT 


EDIT-PROGRAMMA VOOR KLANTENBESTAND (VERSIE 2) 


1050 REM _- C/C$ : KREDIETCODE 

1060 REM - B$ : NAAM VAN BESTAND 
1070 REM = A$ + DIALOOG 

1080 REM 


1090 REM BESTANDEN 
1100 REM 1, INVOERBESTAND OP FLOPPY, NAAM IN TE VOEREN DOOR GEBRUIKER (BS) 
1110 REM 2. TIJDELIJK HULPBESTAND "HULP" 


1120 REM 

1130 REM BEIDE BESTANDEN SEQUENTIEEL GEORGANISEERD 

1140 REM 

1145 MAXFILES = 2 

1150 LINE INPUT "NAAM BESTAND: "; BS 

1160 OPEN BS FOR INPUT AS 1 

1170 OPEN "HULP" FOR OUTPUT AS 2 

1180 REM 

1190 REM LEES RECORD EN DRUK VELDEN AF OP SCHERM 

1200 REM 

1210 CLS 

1220 IF EOF(1) THEN 1470 

1230 PRINT “GEEF 'CHANGE' OF 'C' (ZONDER AANH. TEKENS) * 
1240 PRINT “OM TE VERANDEREN" 

1250 PRINT “GEEF RETURN/ENTER OM VERDER TE GAAN" 
1260 INPUT #1, NS, KS, C 

1270 PRINT NS 

1280 LINE INPUT A$ 

1290 IF LEFTS(AS,1) = "C“ THEN GOSUB 2040 

1300 REM 


2000 REM seerenennenenneenennennen 


2010 REM ROUTINE VOOR VERANDEREN KL 


2020 REM wennenmenennnnnenennn: 
2030 REM 
2040 LINE INPUT “NIEUW KLANTNUMMER (5 CIJFERS): "; NS 
2050 IF LEN(NS) = 0 THEN 
PRINT “GEEF KLANTNUMMER AUB" : GOTO 2040 
2060 IF LEN(NS) © 5 THEN 


PRINT “INVOERFOUT, OPNIEUW MET PRECIES 5 CIJFERS AUB" : GOTO 2040 
2070 IF VAL(NS) = 0 THEN 

PRINT “INVOERFOUT. ALLEEN CIJFERS AUB" : GOTO 2040 
2080 RETURN 


2090 REM 
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Let op de belangrijkste wijzigingen ten opzichte van de vorige ver- 
sie: het uitvoerbestand (regel 1170), de test op een 'CHANGE'- 
opdracht in regel 1290, en de routine voor het invoeren van, en 
het controleren op, een nieuw klantnummer. De invoercontroles zijn 
dezelfde als destijds bij het allereerste programma voor het veran- 
deren van de kredietcode, Merk overigens op dat de routine niet 
zelf het nieuwe klantnummer naar HULP wegschrijft. Er is bewust 
gekozen voor een 'centrale' PRINT-opdracht om een heel record in 
één keer weg te schrijven. 


Aan u de eer om de volgende routine — bedoeld om de naam van een 
klant te veranderen — af te maken (regels 3040 t/m 3060). Ga daar- 
bij uit van de gegeven REMARKs. 


1310 PRINT K$ 

1320 LINE INPUT A$ 

1330 IF LEFTS(AS,1) = "C“ THEN GOSUB 3040 
1340 REM 


aant 


mensennnnnnentnenntnenenenennnennnenenennnntnnnnnnnnnt 


3000 REM seer 


3010 REM Rí NE VOOR VERANDEREN V, 
3020 REM tenennenmennnnennetneren eanennaree, 
3030 REM 
3040 aan anovverververvenaneserere 7 REM *** NAAM INVOEREN 
3050 ss oeveneerneeverenvnverenen : REM *** TEST OP NULSTRING 
3060 sarensn eren nerverevenenenveren : REM *** TEST OP LENGTE hainind 
3070 RETURN 
3080 REM 
3040 LINE INPUT “NIEUWE NAAM (MAX. 20 TEKENS): 
3050 IF LEN(K$S) = 0 THEN 
PRINT "NIEUWE NAAM INVOEREN AUB" : GOTO 3040 
3060 IF LEN(KS) > 20 THEN 


PRINT “INVOERFOUT. MAX. 20 TEKENS. OPNIEUW AUB" _ : GOTO 3040 


Nu een routine om de kredietcode te veranderen, en opdrachten om 
het al dan niet gewijzigde record weg te schrijven naar het hulpbe- 
stand. Maak daartoe het volgende programmasegment af, in over- 
eenstemming met de gegeven REMARKs (regels 1410, 4040, 4050, 
4060 en 4070). 


1350 PRINT C 

1360 LINE INPUT A$ 

1370 IF LEFTS(AS,1) = “C* THEN GOSUB 4040 
1380 REM 


1390 REM SCHRIJF AL DAN NIET GEWIJZIGDE RECORDS NAAR HULPBESTAND 

1400 REM 

1410 sssveeseerenserenververnensene : REM *** SCHRIJF NAAR HULP anal 
1420 REM 
1430 


1440 REM 


G0TO 1220 
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4OOO REM mmenemenvenenennsnenvensneertentenennnnnnnennnennnnnnnennnntnn ennn 


4010 REM _ROUTINE VOOR VERANDEREN KREDIETCODE 


4020 REM smentmenseernenenenvenennenterennverennnennnensnnnnnenennnnnnnnn enn 


4030 REM 


AU verden z REM *« KREDIETCODE INVOEREN hd 
MOD eere : REM *** TEST OP LENGTE wee 
SED venne : REM **« TEST OP WAARDE 1-5 ……. 
MD remmers : REM tes CONVERTEER NAAR GETALWAARDE"** 
4080 RETURN 
4090 REM 
1410 PRINT #2, NS; “‚*; KS; ","; C 
4040 LINE INPUT "NIEUWE KREDIETCODE (1-5): *; C$ 
4050 IF LEN(CS) © 1 THEN 

PRINT "SLECHTS 1 CIJFER TOEGESTAAN. OPNIEUW AUB" : GOTO 4040 
4060 IF VAL(CS) < 1 THEN 


PRINT "ALLEEN CIJFER 1 T/M 5 TOEGESTAAN. OPNIEUW AUB“ : GOTO 4040 
4070 LET C = VAL(C$) 


Rest nog het kopiëren van het hulpbestand naar het oorspronkelijke 
bestand. U wordt weer gevraagd volgens het bekende recept de 
ontbrekende regels te leveren (regels 1490, 1500, 1540 t/m 1560, 
1610). 


1450 REM SLUIT BESTANDEN EN INITIALISEER OPNIEUW 

1460 REM 

1470 CLOSE 1, 2 

1480 REM 

1490 oaovoeneervensnvvernenvervnene : REM *** OPEN INVOERBESTAND een. 
1500 venanvanerenerveersnenvervenn : REM «ee OPEN UITVOERBESTAND een 
1520 REM KOPIEER TERUG 

1530 REM 

1540  vanoonerversereeer wenvenenneen : REM *** BĲ EOF NAAR 1610 iele 
* LEES RECORD ke 
1560  acveroversssoereneree wensen : REM *** SCHRIJF WEG biel 
1570 GOTO 1540 

1590 REM AFSLUITING 

1610 oaosvaveererrreersen venaneneee : REM vee SLUIT BESTANDEN isial 


1620 PRINT "EINDE PROGRAMMA" 
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(a) 1490 OPEN "HULP FOR INPUT AS 1 

1500 OPEN B$ FOR OUTPUT AS 2 
(b) 1540 IF EOF(1) THEN 1610 

1550 INPUT #1, NS, KS, C 

1560 PRINT #2, NS; *‚"; KS; ","; C 
(e) 1610 CLOSE 1, 2 


Derde versie: records verwijderen ('delete') en toevoegen ('insert') 


In deze versie bouwen we, naast de mogelijkheid om recordgegevens 
te veranderen, ook de mogelijkheid in om records geheel te verwij- 

deren en toe te voegen. Eerst het verwijderen. Daarbij lezen we het 
record wel in van het oorspronkelijke invoerbestand, maar schrijven 
het niet naar HULP. Het record verdwijnt dus. We beginnen met de 

gebruiker te informeren dat deze mogelijkheid bestaat: 


1245 PRINT “GEEF 'DELETE' OF 'D' (ZONDER AANH. TEKENS) * 
1246 PRINT "OM EEN RECORD TE VERWIJDEREN" 
Opdracht 


(a) Schrijf zelf de opdracht (direct na regel 1290) om op het invoe- 
ren van DELETE of D te testen; bij invoer hiervan dient 
gesprongen te worden naar regel 1210 (waarom?) . 


(a) 1295 IF LEFTS(AS,1) = "D" THEN 1210 


Door de sprong naar 1210 wordt het wegschrijven van het 
record omzeild, en gaat het programma verder met een nieuw 
record. 


Vervolgens het toevoegen van volledige records aan het bestand. 
Hiervoor kunnen we dankbaar gebruik maken van de eerder 
geschreven routines (regels 2000 t/m 2090, 3000 t/m 3080 en 4000 
t/m 4090). Het record wordt toegevoegd na het lokaliseren van het 
record dat eraan vooraf moet gaan. Op grond van deze informatie 
en de gegeven REMARKs kunt u het volgende programmasegment 
afmaken (regels 1296, 1446 en 1447). 


1247 PRINT “GEEF 'INSERT' OF 'I' OM NA DIT RECORD *; 
1248 PRINT "EEN NIEUW TOE TE VOEGEN" 
1296 : REM *** TEST OP 1. INDIEN AANWEZIG 


GÄNAAR 1441 st 
(op regel 1441 komen we straks terug) 
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1443 REM STEL NIEUWE RECORDS SAMEN EN VOEG TOE AAN HULP 


1444 REM 

1445 GosuB 2040 z REM +++ VOER KLANTNUMMER IN hid 
1446 vuunvernnerennnereneneerveeren t REM *** VOER NAAM KLANT IN …… 
1447 de „ : REM *e* VOER KREDIETCODE IN hid 
1448 GTO 1410 

1449 REM 

1296 IF LEFTS(AS,1) = "1" THEN 1444 

1445 GosuB 3040 

1446 GOSUB 4040 


Zoals beloofd komen we nu terug op regel 1441. Deze is nodig om de 
het huidige record — dat dus aan het toe te voegen record vooraf 
moet gaan — naar HULP over te brengen. Dus: 


1441 PRINT #2, NS; “‚"; KS; "‚*; C 


We knopen de eindjes nu aan elkaar. Het resulterende programma 
geeft ons de mogelijkheid recordvelden te veranderen, records te 
verwijderen of toe te voegen, of simpelweg de inhoud van het 
bestand op het scherm af te drukken. 


1000 REM _EDIT-PROGRAMMA VOOR KLANTENBESTAND (VERSIE 3) 


1010 REM 
1020 REM _VARIABELENLIJST 
1030 REM = NS : KLANTNUMMER 


1040 REM = K$ : NAAM VAN KLANT 


1050 REM _ - C/C$ : KREDIETCODE 

1060 REM =B$ z NAAM VAN BESTAND 
1070 REM = A$ + DIALOOG 

1080 REM 


1090 REM BESTANDEN 
1100 REM 1. INVOERBESTAND OP FLOPPY, NAAM IN TE VOEREN DOOR GEBRUIKER (BS) 
1110 REM 2, TIJDELIJK HULPBESTAND "HULP" 


1120 REM 

1130 REM BEIDE BESTANDEN SEQUENTIEEL GEORGANISEERD 
1140 REM 

1145 MAXFILES = 2 

1150 LINE INPUT “NAAM BESTAND: *; BS 

1160 OPEN B$ FOR INPUT AS #1 

1170 OPEN "HULP" FOR OUTPUT AS #2 


1180 REM 
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1190 REM 
1200 REM 


1340 REM 


1380 REM 
1390 REM 
1400 REM 


1420 REM 
1440 REM 
1442 REM 


1443 REM 
1444 REM 


1449 REM 
1450 REM 
1460 REM 


1480 REM 


1510 REM 
1520 REM 
1530 REM 


1580 REM 


LEES RECORD EN DRUK VELDEN AF OP SCHERM 
CLS 
IF EOF(1) THEN 1470 
PRINT “GEEF 'CHANGE' OF 'C' (ZONDER AANH. TEKENS) *; 
PRINT “OM TE VERANDEREN 
PRINT “GEEF 'DELETE' OF 'D' (ZONDER AANH. TEKENS) *; 
PRINT “OM EEN RECORD TE VERWIJDEREN 
PRINT “GEEF 'INSERT' OF 'I' (ZONDER AANH. TEKENS) *; 
PRINT “OM NA DIT RECORD EEN NIEUW TOE TE VOEGEN" 
PRINT “GEEF RETURN/ENTER OM VERDER TE GAAN" 
INPUT #1, NS, KS, C 
PRINT NS 
LINE INPUT A$ 
IF LEFTS(AS,1) = “C" THEN GOSUB 2040 
IF LEFTS(AS,1) = “D" THEN 1210 
IF LEFTS(AS,1) = "I" THEN 1445 
PRINT K$ 
LINE INPUT A$ 
IF LEFTS(AS,1) = "C“ THEN GOSUB 3040 
PRINT C 
LINE INPUT A$ 
IF LEFTS(A$,1) = “C" THEN GOSUB 4040 
SCHRIJF AL DAN NIET GEWIJZIGDE RECORDS NAAR HULPBESTAND 
PRINT #2, NS; “‚*; KS; "‚"; C 
GOTO 1220 
PRINT W2, N$; “,*; KS; ","; C 
STEL NIEUWE RECORDS SAMEN EN VOEG TOE AAN HULP 
GOSUB 2040 : REM *** VOER KLANTNUMMER IN 
GOSUB 3040 : REM mee VOER NAAM KLANT IN 
GOSUB 4040 : REM tee VOER KREDIETCODE IN 
GOTO 1410 
SLUIT BESTANDEN EN INITIALISEER OPNIEUW 
CLOSE 1, 2 
OPEN "HULP" FOR INPUT AS 1 
OPEN BS FOR OUTPUT AS 2 
KOPIEER TERUG 
IF EOF(1) THEN 1610 : REM **e BI EOF NAAR 1610 
INPUT #1, N$, KS, C REM tee LEES RECORD 
PRINT #2, NS; s ,"; C : REM *** SCHRIJF WEG 
GOTO 1540 


(wordt vervolgd) 


…… 
…… 
…… 
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1590 REM AFSLUITING 


1600 REM 

1610 CLOSE 1, 2 z REM *ee SLUIT BESTANDEN lainad 
1620 PRINT “EINDE PROGRAMMA" 

1625 END 

1630 REM 


eenen 


2000 REM mememenetentnennnen wenntenennen 


2010 REM ROUTINE VOOR VERANDEREN KLANTNUMMER 


2020 REM terenemnnnennnnnnennnnnnnnnknnnnne nnen nen nennen entente 


2030 REM 
2040 LINE INPUT “NIEUW KLANTNUMMER (5 CIJFERS): "; N$ 
2050 IF LEN(NS) = 0 THEN 
PRINT "GEEF KLANTNUMMER AUB" : GOTO 2040 
2060 IF LEN(NS) > 5 THEN 


PRINT "“INVOERFOUT. OPNIEUW MET PRECIES 5 CIJFERS AUB" : GOTO 2040 
2070 IF VAL(Ns) = 0 THEN 
PRINT "INVOERFOUT. ALLEEN CIJFERS AUB“ : GOTO 2040 
RETURN 


2090 REM 


3000 REM sasmenenenneervenseenverevvenenenvennenvnenvenneersnnnnennnnnnnnnnnn 


3010 REM _ROUTINE VOOR VERANDEREN VAN KLANTNAAM 


3020 REM semmenmennenenennnennnsensnennsnenseermennvennvenensnnnnennnnnntennen 


3030 REM 


3040 LINE INPUT "NIEUWE NAAM (MAX, 20 TEKENS): “; KS 
3050 IF LEN(KS) = 0 THEN 

PRINT "NIEUWE NAAM INVOEREN AUB" : GOTO 3040 
3060 IF LEN(K$) > 20 THEN 

PRINT “INVOERFOUT, MAX, 20 TEKENS. OPNIEUW AUB" : GOTO 3040 
3070 RETURN 
3080 REM 


BO00 REM srmmenseenmeanvennenenteerventennsnennneensvenensnvevennvennvenrsnenn 


4010 REM ROUTINE VOOR VERANDEREN KREDIETCODE 


4020 REM trmerenmenmansvenevenssenvensetensennnvenssennsennsvernnvnnvenvenenn 


4040 LINE INPUT “NIEUWE KREDIETCODE (1-5) 2 % C$ 
4050 IF LEN(CS) > 1 THEN 
PRINT “SLECHTS 1 CIJFER TOEGESTAAN. OPNIEUW AUB" : GOTO 4040 
4060 IF VAL(CS) < 1 OR VAL(CS) > 5 THEN 
PRINT “ALLEEN CIJFER 1 T/M 5 TOEGESTAAN. OPNIEUW AUB" : GOTO 4040 
4070 LET C = VAL(C$) 
4080 RETURN 
4090 REM 
9999 END 


Algemene procedure 


De algemene procedure voor het veranderen, verwijderen of toevoe- 
gen van records is als volgt. 

1. Open invoerbestand. 

2, Open een tijdelijk bestand voor uitvoer. 


3. Check op EOF voor het invoerbestand; indien einde bestand, 
ga naar stap 11. 


4. Druk een overzicht af van de mogelijkheden van het programma 
(de zogenaamde opties, dat wil zeggen 'C', 'D', 'I' of 'niets 
veranderen!) . 
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5. Lees het eerste c.q. het eerstvolgende record van het invoer 
bestand en druk het eerste veld daarvan af. 


6, Stel de gebruiker in de gelegenheid één van de programma- 
opties (zie stap 4) te kiezen. 


7. Indien optie 'C' gekozen: 

a. Laat gebruiker het vervangende gegeven invoeren, en con- 
troleer dat gegeven op geldigheid. 

b. Druk het volgende veld van het record af (indien aanwezig). 

ec. Stel gebruiker in de gelegenheid ook dit veld te veranderen 
(optie C). 

d. Indien gebruiker wil veranderen, voer vervangend gegeven 
in en test op geldigheid. 

e. Herhaal Tb t/m d tot alle velden van record verwerkt zijn. 

f. Schrijf al dan niet gewijzigd record naar hulpbestand. 

g. Ga naar stap 3. 


8. Indien optie 'I' gekozen: 

a. Schrijf huidige record naar hulpbestand. 

b. Laat gebruiker nieuw record invoeren, en controleer op gel- 
digheid. 

e. Schrijf nieuw record naar hulpbestand. 

d., Ga naar stap 3. 
N.B. Eventueel kan men in plaats hiervan opnieuw de moge- 

lijkheid geven om een record in te voegen. 


9, Indien optie 'D' gekozen: 
ga naar stap 3 (het huidige record wordt dan niet naar het 
hulpbestand geschreven, en wordt in effect dus verwijderd). 


10, Indien geen C-, D- of I-optie gekozen, maar RETURN, ga terug 
naar stap 7b en herhaal. 


11. Sluit beide bestanden. 


12. Open oorspronkelijk bestand voor uitvoer, en hulpbestand voor 
invoer. 

13. Test op EOF voor tijdelijk bestand; indien einde bestand, sluit 
beide bestanden. 

14. Lees records van tijdelijk bestand en schrijf naar oorspronke- 
lijk bestand. 


15. Herhaal de stappen 13 en 14 tot EOF optreedt en de bestanden 
gesloten worden. 


Toetsvraag 


(a) Bepaal welke regel(s) in versie 3 van het edit-programma over- 
eenkomen met de stappen in bovenstaande procedure. 
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(a) 1. 1160 8. a. 1296 
2. 1170 b. 1445 t/m 1447 
3. 1220 ec. 1448/1410 
4. 1230 t/m 1250 d. 1430 
5. 1260, 1270 9. 1295/1210 
6. 1280 10. 1430 
7. a. 1290, 2040 t/m 2090 11. 1470 
b. 1310 12. 1500, 1490 
c. 1320 13. 1540, 1610 
d. 3040 t/m 3080 14. 1550, 1560 
e. 1350 t/m 1370 15. 1570 
4040 t/m 4090 
f. 1410 
g. 1430 


5.5 SAMENVOEGEN VAN SEQUENTIËLE BESTANDEN 
(MERGE) 


In administratieve computerbestanden worden gegevens veelal in 
alfabetische of numerieke volgorde opgeborgen. Het bestand is dan 
volgens een zogenaamde sleutel geordend of gesorteerd. Zo'n sleu- 
tel kan bijvoorbeeld een klantnummer, klantnaam of een artikel 
code zijn. Vaak is het nodig de inhoud van twee bestanden, waarin 
reeds een of andere ordening aanwezig is, te combineren of samen 
te voegen (Engels: merge) tot een derde bestand met dezelfde 
ordening. In deze paragraaf gaan we hier nader op in. Niet slechts 
wegens de praktische kant van de zaak, maar ook om u kennis te 
laten maken met bestandtechnieken die in breder verband toe te 
passen zijn. 


De algemene procedure om twee bestanden samen te voegen is als 
volgt. 


1. Open beide samen te voegen bestanden (nummers 1 en 2) voor 
invoer, en check beide op EOF om zeker te zijn dat er in ieder 
geval gegevens zijn. Indien EOF, ga naar stap 11. 


2. Open een derde bestand (dat de inhoud van bestanden 1 en 2 
moet gaan bevatten) voor uitvoer (bestandnummer 3). 


Test bestand 1 op EOF; indien einde bestand ga naar stap 10. 
Lees eerste record van bestand 1. 
Test bestand 2 op EOF; indien einde bestand ga naar stap 10. 


sn … w 


… Lees eerste record van bestand 2. 
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7. Bepaal welk van beide records (van bestand 1 of 2) overge- 
bracht moet worden naar bestand 3. 


8. Schrijf het gekozen record naar bestand 3. Hiervoor zijn twee 
verschillende programmadelen nodig: één voor een record van 
bestand 1, en één voor een record van bestand 2. 


9. Test op EOF en lees een volgend record van dat bestand waar- 
van in stap 8 een record naar bestand 3 werd geschreven. Ook 
hier zijn twee verschillende routines nodig: 

a. test op EOF en lees een volgend record van bestand 1, of 
b. test op EOF en lees een volgend record van bestand 2, 


10. Er zijn weer twee verschillende programmadelen nodig om de 
resterende gegevens in bestand 1 of 2 naar bestand 3 over te 
brengen: 

a. indien EOF het eerst voor bestand 1 optreedt, kopieer dan 
de resterende gegevens in bestand 2 naar bestand 3; 

b. indien EOF het eerst voor bestand 2 optreedt, kopieer dan 
de resterende gegevens in bestand 1 naar bestand 3. 


11. Sluit alle bestanden. 


12. Voer facultatief een routine uit om de inhoud van bestand 3 
geheel of gedeeltelijk ter controle af te drukken. 


Een voorbeeld 


Als voorbeeld gebruiken we twee transactiebestanden zoals bespro- 
ken in toetsvraag 4 aan het einde van het vorige hoofdstuk. Elk 
record van zo'n bestand bestaat uit een string van 14 tekens, als 
volgt ingedeeld: 


lem RETE 14 


rekeningnr. bedrag 
(5 tekens) (7 tekens) 


transactiecode 
(2 tekens) 


We nemen aan dat de records in beide bestanden in volgorde van 
geopende rekeningnummers geordend zijn. De bedoeling is een der- 
de bestand te maken dat de gegevens van de eerste twee bestanden 
zo samenvoegt dat de klantnummervolgorde wordt gehandhaafd. 
Daarbij gaan we ervan uit dat hetzelfde rekeningnummer in één of 
meer records van één of beide bestanden kan vóórkomen. In het 
geval dat twee records van verschillende bestanden inderdaad het- 
zelfde rekeningnummer hebben, nemen we aan dat het record van 
bestand 1 het eerst naar bestand 3 moet worden gekopieerd (zie 
fig. 5-1). 
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bestand 1 bestand 2 
10762 10761 
18102 18203 
43611 43611 
43611 80111 
43611 80772 
80223 80772 
98702 89012 

bestand 3 
10761 
10762 
18102 
18203 


43611 (van bestand 1) 
43611 (idem) 
43611 (idem) 
43611 (van bestand 2) 


fig.5-1. Voorbeeld van volgorde waarin records worden 
samengevoegd. Alleen de rekeningnummers zijn 
aangegeven. 


We noemen het programma MERGE, naar het Engelse woord voor 
samenvoegen. Het eerste deel ziet er als volgt uit: 


100 REM PROGRAMMA MERGE VOOR SAMENVOEGEN BESTANDEN 
110 REM 

120 REM _VARIABELENLIJST 

130 REM = NIS, N2$, N3$ : BESTANDNAMEN 


140 REM = RIS, R2$ : RECORDS VAN BESTANDEN 1 EN 2 
150 REM = RI, R2 : REKEN INGNUMMERS 

160 REM =A$ + DIALOOG 

165 REM 


170 REM BESTANDEN 
180 REM = TWEE INVOERBESTANDEN EN EEN UITVOERBESTAND, NAMEN DOOR GEBRUIKER 


190 REM IN TE VOEREN, ALLE BESTANDEN SEQUENTIEEL OP FLOPPY 
200 REM 

210 REM _INITIALISATIE BESTANDEN 

215 REM 

220 LINE INPUT “BESTAND 1 (INVOER) : "; NIS 
230 LINE INPUT “BESTAND 2 (INVOER) : “; N2$ 
240 LINE INPUT "BESTAND 3 (UITVOER): “; N3$ 
250 REM 

255 MAXFILES = 3 

260 OPEN N1$ FOR INPUT AS 1 

270 OPEN N2$ FOR INPUT AS 2 

280 OPEN N3$ FOR OUTPUT AS 3 


290 REM 
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Vervolgens lezen we het eerste record van bestand 1. Merk op dat 
(in overeenstemming met de algemene procedure) eerst een EOF- 
eheck wordt uitgevoerd voor het geval dat bestand 1 leeg is (regel 
320). In dat geval wordt de inhoud van bestand 2 toch naar bestand 
3 overgebracht, hoewel er eigenlijk niet meer van samenvoegen 
sprake is. Zijn beide bestanden leeg, dan valt er helemaal weinig 

te doen. Het programma produceert dan via regel 900 een foutmel- 
ding. 


300 REM LEES BESTAND 1 


310 REM 

315 IF EOF(4) AND EOF(2) THEN 900 

320 IF EOF(1) THEN INPUT #2, R2$ : GOTO 610 
330 INPUT #1, R1$ 


De volgende regel converteert het eerste veld van een record van 
bestand 1 — het rekeningnummer — naar een numerieke waarde: 


340 LET R1 = VAL(LEFTS(R1S,5)) 


U wordt verzocht nu zelf een soortgelijk segment te schrijven voor 
het lezen van een record van bestand 2 en het converteren van het 
rekeningnummer naar een numerieke waarde. 
(a) 360 REM LEES BESTAND 2 

365 REM 

370 sassornrenerscerversesvereeene 

380  saaversecerevenseensenveveeven 

0  vaarvenmardeieeaek 


(a) 370 IF EOF(2) THEN 670 
380 INPUT #2, R2$ 
390 LET R2 = VAL(LEFTS(R25,5)) 


Vervolgens moet worden bepaald welk record — van bestand 1 of 
bestand 2 — het eerst naar bestand 3 moet worden gekopieerd: 


410 REM WELK RECORD NAAR BESTAND 37 


415 REM 

420 IF RI = R2 THEN 470 
430 IF R1 < R2 THEN 470. 
440 GOTO 540 

450 REM 


Tot nu toe ziet het programma er als volgt uit: 
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100 REM PROGRAMMA MERGE VOOR SAMENVOEGEN BESTANDEN 


110 REM 

120 REM _ VARIABELENLIJST 

130 REM = NIS, N2$, N3$ : BESTANDNAMEN 

140 REM = RIS, R2$ : RECORDS VAN BESTANDEN 1 EN 2 
150 REM - RI, R2 : REKEN INGNUMMERS 

160 REM = A$ : DIALOOG 

165 REM 


170 REM BESTANDEN 
180 REM = TWEE INVOERBESTANDEN EN EEN UITVOERBESTAND, NAMEN DOOR GEBRUIKER 
190 REM IN TE VOEREN, ALLE BESTANDEN SEQUENTIEEL OP FLOPPY 


210 REM _INITIALISEER BESTANDEN 


215 REM 

220 LINE INPUT “BESTAND 1 (INVOER) : *; NIS 
230 LINE INPUT "BESTAND 2 (INVOER) : "; N2$ 
240 LINE INPUT “BESTAND 3 (UITVOER): “; N3$ 
250 REM 

255 MAXFILES = 3 

260 OPEN NIS FOR INPUT AS 1 

270 OPEN N2$ FOR INPUT AS 2 

280 OPEN N3$ FOR OUTPUT AS 3 

290 REM 

300 REM LEES BESTAND 1 

310 REM 

315 IF EOF(1) AND EOF(2) THEN 900 

320 IF EOF(1) fl INPUT #2, R2$ + GOTO 610 
330 INPUT #1, 

340 LET RI = VALLEFTS(RIS, 5)) 

350 REM 

360 REM LEES BESTAND 2 

365 REM 

370 IF EOF(2) En 670 

380 INPUT #2, 

390 LET R2 = VALTLEFTS(R2s, 5)) 

400 REM 

410 REM WELK RECORD NAAR BESTAND 37 

415 REM 

420 IF R1 = R2 THEN 470 

430 IF Ri < R2 THEN 470 

440 GOTO 540 

450 REM 

Toetsvragen 


(a) Wat zou het eerstvolgende deel van het programma moeten doen? 


(b) Het programma test in regel 420 op gelijkheid. In regel 430 op 
het kleiner zijn van rekeningnummer R1 dan rekeningnummer 
R2. Als beide tests 'onwaar' zijn, hoe is dan de relatie tussen 
Rlen R2? 


(e) Wat moet er gebeuren in het programmadeel dat bij regel 540 
begint, en waarnaar vanuit regel 440 wordt gesprongen? 

(a) De inhoud van R1$ naar bestand 3 kopiëren. 

(b) Rl is groter dan R2. 

(e) De inhoud van R2$ moet worden gekopieerd naar bestand 3. 
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De opdracht voor het kopiëren van een record van bestand 1 naar 
bestand 3 (met REMARK) is: 


460 REM KOPIEER RECORD VAN 1 NAAR 2 


465 REM 
470 PRINT #3, RIS 
Toetsvraag 


(a) Na uitvoering van dit segment moet het programma een volgend 
record van bestand 1 lezen. U zou in de verleiding kunnen 
komen om terug te springen naar regel 315 en van daaruit ver- 
der te gaan. Waarom kan dit niet? 

(a) Het programmadeel vanaf regel 315 leest inderdaad van bestand 
1, maar gaat direct daarna door met het lezen vanaf bestand 2. 
Het record dat al in R2$ was opgeslagen wordt daarbij over 
schreven, zonder naar bestand 3 te zijn overgebracht. 


Gezien het in de toetsvraag aangestipte probleem, schrijven we een 
afzonderlijk segment om het volgende record van bestand 1 te lezen: 


480 IF EOF(1) THEN 610 

490 INPUT #1, RIS 

500 LET RI = VAL(LEFTS(R1S,5)) 
510 GOTO 420 

520 REM 

Toetsvraag 


(a) Bij het einde van bestand 1 wordt gesprongen naar regel 610. 
Wat moet daar gebeuren? 


(a) Aangezien alle records van bestand 1 naar bestand 3 zijn geko- 
pieerd, moeten nu de resterende records van bestand 2 worden 
gekopieerd ('ge-dumped') naar bestand 3. Daar komen we straks 
op terug. 


In aansluiting op het bovenstaande segment is (ook) een programma- 
deel nodig om het huidige record van bestand 2 naar bestand 3 te 
kopiëren en een nieuw record in te lezen. Dat ziet er als volgt uit: 


530 REM KOPIEER RECORD VAN 2 NAAR 3 


535 REM 

540 PRINT #3, R2$ 

550 IF EOF(2) THEN 670 

560 INPUT #2, R2S 

570 LET R2 = VAL(LEFTS(R2S,5)) 
580 GOTO 420 


590 REM 
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We zijn nu al een eind op weg. Als volgende stap schrijven we twee 
gelijksoortige segmenten om de resterende records van bestand 2 
naar 3, en van bestand 1 naar 3 over te brengen. De kop van het 
eerste segment is: 

600 REM DUMP RESTERENDE REGELS VAN 2 NAAR 3 


605 REM 
610 


Toetsvraag 


(a) Naar het hier begonnen programmasegment wordt vanaf regel 
480 gesprongen, als zojuist een record van bestand 1 naar 
bestand 3 is overgebracht. Aanleiding tot de sprong was het 
feit dat voor bestand 1 een EOF-conditie optrad, dat wil zeggen 
alle gegevens van dat bestand zijn gekopieerd naar bestand 3. 
Gezien het feit dat een record aan R2$ is toegekend, wat moet 
er in regel 610 gebeuren? 


(a) De inhoud van R2$ moet worden gekopieerd naar bestand 3, 


De rest is betrekkelijk eenvoudig. We testen bestand 2 op EOF en 
‘dumpen' eventueel resterende records naar bestand 3. 


610 PRINT #3, R2$ 

620 IF EOF(2) THEN 730 
630 INPUT #2, R2$ 

640 GOTO 610 

650 REM 


Schrijf nu een overeenkomstig segment om records van bestand 1 in 
bestand 3 te dumpen. Bij EOF voor bestand 1 dient eveneens naar 
regel 730 te worden gesprongen. 
(a) 660 REM DUMP RESTERENDE RECORDS VAN 1 NAAR 3 

665 REM 

670 avosnesvorosrnvarssnsernvncren 

680 sosovcvvre vovorsoevvorvnenacen 

690 vevsvenvensennennnnenrsenvenee 

700 

710 REM 


(b) Wat moet er bij regel 730 gebeuren? 


(a) 670 PRINT #3, RIS 
680 IF EOF(1) THEN 730 
690 INPUT #1, RIS 


700 GOTO 670 
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(b) Alle bestanden moeten worden gesloten; alle gegevens zijn im- 
mers gekopieerd en samengevoegd. 


Na het sluiten van de bestanden stellen we de gebruiker in de gele- 
genheid de inhoud van het resulterende bestand te controleren. 
Alle activiteit in het programma vond namelijk tot nu toe plaats tus- 
sen het werk- en het schijfgeheugen, zonder dat de gebruiker daar 
op het scherm iets van merkte. Mits het bestand niet al te groot is, 
kan zo'n controle dus nuttig zijn. Een en ander is in het volgende 
overzicht van MERGE verwerkt. 


Jo REM PROGRAMMA MERGE VOOR SAMENVOEGEN BESTANDEN 
10 REM 

120 REM _ VARIABELENLIJST 

130 REM = NIS, N2$, N3$ : BESTANDNAMEN 


140 REM = RIS, R2$ z RECORDS VAN BESTANDEN 1 EN 2 
150 REM = RI, R2 : REKEN INGNUMMERS 

160 REM = A$ : DIALOOG 

165 REM 


170 REM _ BESTANDEN 
180 REM - TWEE INVOERBESTANDEN EN EEN UITVOERBESTAND, NAMEN DOOR GEBRUIKER 
190 REM IN TE VOEREN, ALLE BESTANDEN SEQUENTIEEL OP FLOPPY 


210 REM _INITIALISEER BESTANDEN 


220 LINE INPUT “BESTAND 1 (INVOER) 
230 LINE INPUT "BESTAND 2 (INVOER) 
240 LINE INPUT “BESTAND 3 (UITVOER 
250 REM 

255 MAXFILES = 3 

260 OPEN NIS FOR INPUT AS 1 

270 OPEN N2$ FOR INPUT AS 2 

280 OPEN N3$ FOR OUTPUT AS 3 

290 REM 8 

300 REM LEES BESTAND 1 

310 REM 

315 IF EOF(1) AND EOF(2) THEN 900 
320 IF EOF(1) THEN INPUT #2, R2$ : G0TO 610 
330 INPUT #1, RIS 

340 LET R1 = VAL(LEFTS(R1S,5)) 

350 REM 

360 REM LEES BESTAND 2 

365 REM 

370 IF EOF(2) ren 670 

380 INPUT #2, 

390 LET R2 = “AElLerrs(azs. 5)) 

400 REM 

410 REM WELK RECORD NAAR BESTAND 3? 
415 REM 

420 IF R1 = R2 THEN 470 

430 IF RI < R2 THEN 470 

440 GOTO 540 

450 REM 


(wordt vervolgd) 
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460 REM KOPIEER RECORD VAN 1 NAAR 3 


465 REM 

470 PRINT #3, RIS 

480 IF EOF(1) THEN 610 

490 INPUT #1, R1 

500 LET R1 = VAL(LEFTS(R1$,5)) 
510 GOTO 420 

520 REM 

530 REM KOPIEER RECORD VAN 2 NAAR 3 
535 REM 

540 PRINT #3, R25 

550 IF EOF(2) ple 670 

560 INPUT #2, 

570 LET R2 = VAEÍLEFTS(R2S 5)) 
580 GOTO 420 

590 REM 

600 REM DUMP RESTERENDE REGELS VAN 2 NAAR 3 
605 REM 

610 PRINT #3, R2$ 

620 IF EOF(2) THEN 730 

630 INPUT #2, R2$ 

640 GOTO 610 

650 REM 

660 REM DUMP RESTERENDE RECORDS VAN 1 NAAR 3 
665 REM 

670 PRINT #3, RIS 

680 IF EOF(1) THEN 730 

690 INPUT #1, R1$ 

700 GOTO 670 

710 REM 

720 REM SLUIT BESTANDEN / EVENTUEEL CONTROLEREN 
125 REM 

730 CLOSE 1, 2, 3 

740 PRINT “SAMENVOEGEN KLAAR" 

150 PRINT ** : PRINT ** 

760 LINE INPUT "WILT U MERGE BESTAND ZIEN? (J/N): "; A$ 
770 IF LEFTS(AS,1) = *N“ THEN 870 
780 REM 

790 REM INHOUD MERGE BESTAND AFDRUKKEN 
795 REM 

800 OPEN N3$ FOR INPUT AS 1 

810 IF EOF(1) THEN 860 

820 INPUT #1, Ri$ 

830 PRINT RIS 

840 GOTO 810 

850 REM 

855 REM AFSLUITING 

857 REM 

860 CLOSE 1 

870 STOP 

880 REM 

890 REM EOF FOUTMELDING 

895 REM 

900 PRINT “BEIDE BESTANDEN BI BEGIN MERGE LEEG" 
910 REM 


999 END 
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Toetsvraag 


(a) Bepaal welke regels in bovenstaand programma overeenkomen 
met de stappen van de op p.160/161 genoemde procedure. 


(a) 1. 260, 270 8. 470, 540 
2. 280 9. a. 480, 490 
3. 320 b. 560, 570 
4. 330 10. a. 610 t/m 640 
5. 370 b. 670 t/m 700 
6. 380 11. 730 
7, 420, 430 12. 760 t/m 860 


5.6 PROGRAMMA VOOR STANDAARDBRIEVEN 


Als laatste behandelen we een utility-programma om standaardbrie- 
ven te produceren. Daarbij komen enkele nieuwe bestandstechnieken 
ter sprake, en passeren enkele reeds behandelde technieke nogmaals 
de revue. 


We nemen aan dat u vraag 6 van de toetsvragen aan het einde van 
het vorige hoofdstuk hebt gemaakt, en dus over drie standaard- 
brieven (opgeslagen in de bestanden BRIEF1, BRIEF2 en BRIEF3) 
beschikt. Bij het afdrukken van deze brieven zou het geen buiten- 
sporige luxe zijn een programma te hebben dat, aan de hand van 
een afzonderlijk adresbestand, naam en adres van de ontvanger 
boven aan de brief afdrukt, en de aanhef verzorgt. 


Voor het adresbestand doen we alweer een beroep op een produkt 
van de toetsvragen aan het einde van hoofdstuk 4: het NAPW- 
bestand van vraag 5. De recordindeling daarbij was: 


/1 20/21 40/41 47/48 67/ 
naam adres post- woonplaats 
code 


De aanhef van de brief luidt: 
Geachte heer/mevrouw ……........ 
waarbij de stippellijnen de in het NAPW-record gevonden naam is. 


Het programma drukt op het scherm de verschillende namen uit het 
NAPW-bestand een voor een af, en stelt bij elke naam de vraag welke 
standaardbrief (1, 2 of 3) naar die persoon moet worden verstuurd. 
Er worden tegelijkertijd twee van de in totaal vier bestanden 
gebruikt. Aan apparatuur zijn in principe twee schijfeenheden, een 
printer en een scherm nodig. 
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De algemene procedure is als volgt. 


1. Open het adresbestand voor invoer. 


2. Check op EOF voor het adresbestand; indien einde bestand, 
sluit alle bestanden en beëindig programma. 


3. Lees eerste c.q. eerstvolgende adresrecord en druk naam op 
scherm af. 


4. Geef gebruiker de mogelijkheid een brief te selecteren voor ver- 
zending aan deze persoon, of deze persoon over te slaan, 
Indien persoon wordt overgeslagen, ga naar stap 2, 


5. Open het bestand waarin de geselecteerde brief is opgeslagen 
voor invoer. 


6. Druk gegevens van geadresseerde af boven aan brief (printer). 
7. Druk op printer aanhef af (inclusief naam geadresseerde). 


8. Test briefbestand op EOF; bij einde bestand: 
a. sluit briefbestand; 
b, herhaal vanaf stap 2. 


9. Lees eerste c.q. eerstvolgende briefrecord (dat wil zeggen een 
tekstregel) en druk af op de printer. 


10. Herhaal vanaf stap 8. 


Het eerste deel van het programma ziet er als volgt uit: 


100 REM PROGRAMMA VOOR MAKEN VAN STANDAARDBRIEF 


110 REM 

120 REM _ VARIABELENLIJST 

130 REM = NS _ : NAAM, ADRES ETC, 
140 REM - RS TEKSTREGEL BRIEF 


150 REM = BS _: NAAM BRIEFBESTAND 
160 REM = D$ : DIALOOG 


170 REM BESTANDEN (WAARVAN 2 TEGELIJKERTIJD OPEN) 
180 REM 1, NAPW (INVOER) 

190 REM 2. BRIEF1, BRIEF2, BRIEF3 (UITVOER) 

185 REM ALLE BESTANDEN: SEQUENTIEEL/FLOPPY 


190 REM 

200 CLEAR 1000 

210 REm 

215 MAXFILES = 2 

220 OPEN “NAPW" FOR INPUT AS 1 
230 REM 

zi REM TWEEDE BESTAND WORDT T.Z.T, GESELECTEERD EN GEOPEND 
250 REM 

260 REM LEES NAAM, ADRES ETC, 

265 REM 

270 IF EOF(1) THEN 620 

280 INPUT #1, N$ 
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Het programma kent in regel 280 de inhoud van het eerste NAPW- 
record toe aan variabele N$. Merk op dat de EOF-check vóór het 
lezen van het eerste record plaatsvindt. 


Nu is de beurt aan u. Laat het programma de gevonden naam (posi- 
ties 1 t/m 20 van het NAPW-record) op het scherm afdrukken, en 
de gebruiker vragen een brief te selecteren of de desbetreffende 
persoon over te slaan. Vul daartoe de ontbrekende regels in het 
volgende programmasegment in: 


300 REM GEEF NAAM EN SELECTEER BRIEF 


305 REM 
310 cs 
30. verrek 7 REM **« DRUK NAAM AF EN SLA REGEL OVER  *** 
B romke : REM *** SELECTEER BRIEF … 
DE meden 7 REM *** TERUG NAAR 270 INDIEN GEEN BRIEF 
NODIG *** 
MU  atrakkmeneeie : REM *** TERUG NAAR 330 INDIEN SELECTIE 
ONGELDIG *+* 
350 REM 
(a) 320 PRINT LEFTS(NS,20) : PRINT ** 
330 LINE INPUT “WELKE BRIEF (1, 2, 3 OF RETURN): *; DS 
335 IF LEN(DS) = 0 THEN 270 
340 IF VAL(DS) < 1 OR VAL(DS) > 3 THEN 
PRINT “INVOERFOUT. ALLEEN 1, 2, 3 OF RETURN“ __ : GOTO 330 


Bestudeer vervolgens het volgende programmadeel voor het samen- 
stellen van de naam van het briefbestand. 


360 REM _INITIALISEER BRIEFBESTAND 


365 REM 

370 LET BS = "BRIEF" + D$ 
380 OPEN B$ FOR INPUT AS 2 
390 REM 

Toetsvraag 


(a) Stel dat de gebruiker naar aanleiding van regel 330 de waarde 2 
invoert. Welk bestand wordt dan geopend? 


(a) BRIEF2, dankzij stringconcatenatie in regel 370. 


Geef vervolgens de ontbrekende regels in onderstaand programma- 
segment om naam, adres, etc. van de geadresseerde aan het begin 
van de brief op de printer af te drukken. Gebruik daarbij de 
LPRINT-opdracht. 


172 Utility-programma's voor sequentiële bestanden 


400 REM DRUK ADRESGEGEVENS AF OP BRIEF 


405 REM 

AD NE : REM *e* 3 BLANKO REGELS MBV CHRS(10) ge 
40 eansnenesenerevsnee : REM *** DRUK AF NAAM we 
(0 tene z REM *** IDEM STRAAT EN HUISNR. hid 
TN 7 REM **e IDEM POSTCODE EN WOONPLAATS hid 
450 REM 

(a) 

410 FOR I= 1 TO 3 : LPRINT CHRS(10) : NEXT 1 : REM *** 10 = LINE FEED *** 
420 LPRINT LEFTS(NS,20) 

430 LPRINT MIDS(NS,21,20) 

440 LPRINT MIDS(NS,41,7); * "; MIDS(NS,48,20) 


Het volgende deel verzorgt de aanhef: 


460 REM AANHEF AFDRUKKEN 

465 REM 

470 LPRINT CHR$(10) : LPRINT CHRS(10) 

480 LPRINT “GEACHTE HEER/MEVROUW "; LEFTS(NS,20) 
485 LPRINT : LPRINT 

490 REM 


Nu het afdrukken van de inhoud van de brief, * 
500 REM DRUK EIGENLIJKE BRIEF AF 


510 REM 

520 IF EOF(2) THEN 580 
530 LINE INPUT #2, R$ 
540 LPRINT R$ 

550 GOTO 520 

560 REM 

570 REM SLUIT BESTAND EN HERHAAL VOOR VOLGEND ADRES 
575 REM 

580 CLOSE 2 

590 GOTO 270 

600 REM 

Toetsvragen 


(a) Is de LINE INPUT in regel 530 essentieel, of kan met een gewo- 
ne INPUT worden volstaan? 


(b) Zonder te 'spieken': wat gebeurt er vanaf regel 270 (de 
opdracht waarnaar vanuit regel 590 wordt gesprongen)? 


(a) LINE INPUT maakt het mogelijk komma's en aanhalingstekens in 
de tekst van de brief op te nemen. Bij INPUT is dat niet (zon- 
der meer) mogelijk. 


* Diepgravers mogen aannemen dat alle zogenaamde line-feeds en carriage 
returns in de tekstregels zijn opgenomen. 
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(b) Na een EOF-check op het invoerbestand wordt het volgende 
record van het NAPW-bestand gelezen en verwerkt. 


Tenslotte de afsluiting van het programma: 


: REM *** 10 = LINE FEED *** 


610 REM AFSLUITING ADRESBESTAND 
615 REM 
620 PRINT "EINDE PROGRAMMA" 
630 REM 
999 END 
Overzicht 
108 REM PROGRAMMA VOOR MAKEN VAN STANDAARDBRIEF 
110 REM 
120 REM _ VARIABELENLIJST 
130 REM __- NS _: NAAM, ADRES ETC. 
140 REM - RS: TEKSTREGEL BRIEF 
150 REM - BS (AAM BRIEFBESTAND 
160 REM __- DS : DIALOOG 
165 REM 
170 REM BESTANDEN (WAARVAN 2 TEGELIJKERTIJD OPEN) 
180 REM 1. NAPW (INVOER) 
190 REM 2. BRIEF, BRIEF2, BRIEF3 (UITVOER) 
185 REM ALLE BESTANDEN: SEQUENTIEEL/FLOPPY 
190 REM 
200 CLEAR 1000 
210 REM 
215 MAXFILES = 2 
220 OPEN “NAPW* FOR INPUT AS 1 
230 REM 
240 REM TWEEDE BESTAND WORDT T.Z.T. GESELECTEERD EN GEOPEND 
250 REM 
260 REM LEES NAAM, ADRES ETC. 
265 REM 
270 IF EOF(1) THEN 620 
280 INPUT #1, NS 
290 REM 
300 REM GEEF NAAM EN SELECTEER BRIEF 
305 REM 
310 cLs 
320 PRINT LEFTS(NS,20) : PRINT ** 
330 LINE INPUT “WELKE BRIEF (1, 2, 3 OF RETURN): “; D$ 
335 IF LEN(DS) = 0 THEN 270 
340 IF VAL(DS) < 1 OR VAL(DS) > 3 THEN 
mn PRINT “INVOERFOUT. ALLEEN 1, 2, 3 OF RETURN" : GOTO 330 
350 
360 REM INITIALISEER BRIEFBESTAND 
365 REM 
370 LET BS = "BRIEF" + DS 
380 OPEN B$ FOR INPUT AS 2 
390 REM 
400 REM DRUK ADRESGEGEVENS AF OP BRIEF 
405 REM 
410 FOR I= 1 TO 3 : LPRINT CHRS(10) : NEXT I 
420 LPRINT LEFTS(NS,20) 
430 LPRINT MIDS(NS,21,20) 
440 LPRINT MIDS(NS,41,7); * “; MIDS(NS,48,20) 
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460 REM AANHEF AFDRUKKEN 


465 REM 

470 LPRINT CHRS(10) : LPRINT CHRS(10) 
480 LPRINT "GEACHTE HEER/MEVROUW “; LEFTS(NS,20) 
485 LPRINT : LPRINT 

490 REM 

500 REM DRUK EIGENLIJKE BRIEF AF 

510 REM 

520 IF EOF(2) THEN 580 

530 LINE INPUT #2, R$ 

540 LPRINT RS 

550 GOTO 520 

560 REM 

570 REM SLUIT BESTAND EN HERHAAL VOOR VOLGEND ADRES 
575 REM 

580 CLOSE 2 

590 GTO 270 

600 REM 

610 REM AFSLUITING ADRESBESTAND 

615 REM 

620 PRINT “EINDE PROGRAMMA" 

630 REM 

999 END 


5.7 PROBLEMEN EN TIPS BĲ HET WERKEN MET 
SEQUENTIËLE BESTANDEN 


Een gewaarschuwd mens telt voor twee. Met deze volkswijsheid in 
het achterhoofd laten we enkele fouten zien die bij het werken met 
sequentiële bestanden veel worden gemaakt. Daaraan koppelen we 
meteen enkele tips. 


1. De meest voorkomende fout is dat verzuimd wordt de plaats van 
wijzers (pointers) bij te houden, In MSX BASIC, waarbij de com- 
puter bij het openen onderscheid maakt tussen in- en uitvoerbe- 
standen, geven invoerbestanden meestal de grootste problemen . 
Het is daarom verstandig bij ieder gebruik van de 'INPUT #'- 
opdracht in een programma uzelf af te vragen welk effect dat 
heeft op de recordwijzer 


Toetsvraag 


(a) Hoe kunt u de recordwijzer zo terugstellen dat hij naar het 
het begin van het bestand wijst? 

(a) Sluit het bestand met een CLOSE-opdracht. Bij heropenen 
geeft de wijzer het begin van het bestand aan. 
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. Bij het sequentieel doorzoeken van een gegevensbestand voor een 
bepaald record of gegeven worden ook vaak fouten gemaakt. Stel 
u hebt een gegevensbestand van persoonsnamen alfabetisch geor- 
dend op achternaam. U geeft de naam op waarnaar gezocht moet 
worden. De computer vindt de naam en u geeft vervolgens een 
tweede naam op. Neemt u verder geen actie, dan begint het zoe- 
ken naar de tweede naam na het record waarin de eerste naam 
voorkwam. Is de tweede naam alfabetisch 'lager' dan de eerste, 
dan zal de computer hem niet kunnen vinden. De oplossing is 
uiteraard na iedere zoekactie de recordwijzer terug te stellen 
door middel van een CLOSE/OPEN, zoals in punt 1 reeds werd 
genoemd. 


- Problemen komen ook voor bij het gebruik van 'INPUT #'- 
opdrachten in een programmalus. Vaak zal zo'n opdracht niet in 
een lus kunnen worden opgenomen zonder dat de eerste keer 
een reeds ingelezen record wordt overschreven. Het kan daarom 
nodig zijn twee afzonderlijke 'INPUT #'-opdrachten — elk in apar- 
te delen van het programma — te gebruiken (zie de toetsvraag 
naar aanleiding van het segment 450 t/m 470, programma MERGE). 


„ Het kopiëren van de inhoud van arrays naar een gegevensbe- 


stand geeft ook wel eens aanleiding tot problemen. De volgende 
voorbeelden laten zien hoe die omzeild kunnen worden. 


(a) Inhoud van een één-dimensionaal array naar een gegevensbe- 
stand wegschrijven : 


P(1) 
(2) 
(3) 


Fout : PRINT #1, P 


Goed : FOR I= 1 TO 6 
BENE #1, PI) 
NEXT 


(4) 
(5) 


(6) 


Opmerkingen: 
. De FOR/NEXT-constructie is ook als een multi-opdracht te 
schrijven. 

2. Een puntkomma na de PRINT-opdracht kan mogelijk enige 
schrijfruimte besparen. 

3. Met deze methode maakt het niet uit of de gehele array of 
slechts een deel ervan wordt weggeschreven. 


(b) Inhoud meer-dimensionale array wegschrijven: 


176 Utility-programma's voor sequentiële bestanden 


(1,1) (1,2) (1,3) Fout : PRINT #1, C 


Goed : FOR I= 1 104 

FOR J = 1 TO 3 
PRINT #1, C(I,J) 
TJ 


Opmeregen: 

. In principe maakt het hierbij niet uit of de gehele array of 
slechts een deel daarvan werdt weggeschreven. Problemen 
kunnen wel ontstaan door vergissingen tussen rij- en kolom- 
indices. 

2. Een puntkomma na de PRINT-opdracht kan uiteraard ook hier 
mogelijk enige schijfruimte besparen. 


5. Bij toepassingen waar in de loop van de tijd gegevens aan een 
bestand worden toegevoegd, met inachtname van een bepaalde 
volgcode, kan het nuttig zijn de eerst beschikbare volgcode als 
een afzonderlijk record aan het begin van het bestand op te 
nemen, In een klantenbestand zou in het eerste record bijvoor- 
beeld het eerste vrije klantnummer kunnen staan. In tegenstel 
ling tot de overige records bevat dit beginrecord geen verdere 
gegevens. 


Bij het maken van nieuwe klantenrecords wordt dan de volgende 
procedure gevolgd: 


1, Lees het eerste bestandsgegeven (dus het eerste vrije klant- 
nummer). Noem dat N. 


2. Ken N toe aan de eerste, nieuw in te voeren klant. 


3. Verhoog N met 1 (of eventueel 2, 5 of 10 om ruimte te laten 
voor tussenvoegingen. Noem deze waarde N1. De waarde N1 
is dan het eerstvolgende beschikbare klantnummer. 


4. Open een tijdelijk bestand en schrijf hierin als eerste record 
de waarde van N1, Het record bevat verder geen andere 
gegevens. 


5. Kopieer de rest van het oorspronkelijke bestand (dat wil zeg- 
gen de bestaande, 'echte' klantenrecords) naar het tijdelijke 
bestand. 


6. Stel het record van de nieuwe klant samen, en schrijf ook dit 
naar het tijdelijke bestand. Het nieuwe record volgt dus na 
het laatste oorspronkelijke record. 


Toetsvragen 177 


7. Kopieer de inhoud van het tijdelijke bestand terug naar het 
oorspronkelijke bestand. 


8. Herhaal vanaf stap 1 voor iedere nieuwe klant. 


Deze veel voorkomende techniek maakt dus gebruik van een 
afzonderlijk gebied aan het begin van het bestand. De inhoud van 
dit gebied bevat een of meer gegevens die een programma nodig 
kan hebben bij het opereren op het bestand. De gegevens horen 
bij het bestand, en behoeven dankzij deze techniek niet los daar- 
van te worden bewaard. Uiteraard is het van groot belang dat er 
nauwkeurige documentatie is over opbouw en indeling van zo'n 
bestand. 
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1. Schrijf een programma om het adresbestand NAPW (toetsvraag 5 
aan het einde van hoofdstuk 4) te kopiëren. 


2. a. Schrijf een programma dat een sequentieel bestand creëert 
waarvan de inhoud uit de namen van computertijdschriften 
bestaat. Gebruik het programma om de bij b. genoemde 
bestanden te maken, waarbij de titels in oplopende alfabetische 
volgorde worden opgenomen. 


b. Schrijf een programma om twee, in oplopende alfabetische 
volgorde geordende bestanden, samen te voegen. Het resulte- 
rende bestand dient op zijn beurt ook in alfabetische volgorde 
geordend te zijn. De oorspronkelijke bestanden bevatten de 
volgende gegevens: 


bestand 1 bestand 2 

BYTE Magazine Creative Computing 
Computer DATAMATION 
Databus De microcomputer 
MieroMix ON Computing 
Recreational Computing Personal Computing 


3. Schrijf een programma waarmee u uit te voeren huishoudklusjes 
in een bestand kunt opnemen. Het bestand moet met nieuwe gege- 
vens kunnen worden uitgebreid, en bestaande gegevens 
(records) moeten kunnen worden verwijderd. 
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59 ANTWOORDEN OP DE TOETSVRAGEN 


1. 100 REM _TOETSVRAAG 1, HOOFDSTUK 5 
110 REM 
120 REM VARIABELENLIJST 
130 REM _- NS(20) : NAAM 
z ADRES (STRAAT + HUISNR.) 
POSTCODE 
WOONPLAATS 


170 REM - GEHELE RECORD 
180 REM = B$ : BESTANDSNAAM 
190 REM 
200 REM BESTANDEN 
210 REM 1. NAPW FLOPPY/SEQUENTIEEL 
220 REM 2. GEBRUIKER-BEPAALD IDEM 
230 REM 
240 REM _ INITIALISATIES 
245 REM 
247 MAXFILES = 2 
250 LINE INPUT "NAAM KOPIE-BESTAND: 
260 OPEN “NAPW" FOR INPUT AS 1 
270 OPEN B$ FOR OUTPUT AS 2 
280 REM 
290 REM KOPIEER BESTAND 
295 REM 
300 IF EOF(1) THEN 350 
310 INPUT #1, R$ 
320 PRINT #2, RS 
330 GOTO 300 
340 REM 
350 CLOSE 
360 REM 
999 END 
2. a. 
100 REM _TOETSVRAAG 2A, HOOFDSTUK 5 
110 REM 


120 REM _VARIABELENLIJST 

130 REM -B$ _ : BESTANDNAAM 

140 REM = T$ _: TIJDSCHRIFTTITEL 
150 REM =D$ : DIALOOG 


160 REM 
170 REM BESTAND : NAAM DOOR GEBRUIKER TE BEPALEN, 
180 REM FLOPPY /SEQUENTIEEL 
190 REM 
200 REM _INITIALISATIES 
205 REM 
210 CLEAR 500 
220 LINE INPUT "NAAM BESTAND: "; BS 
230 OPEN B$ FOR OUTPUT AS 1 
240 REM 
250 REM _GEGEVENSINVOER 
255 REM 
260 PRINT “GEEF 'STOP' (ZONDER AANH. TEKENS) ALS U KLAAR BENT" 
270 LINE INPUT "TITEL TIJDSCHRIFT: T$ 
280 IF T$ = "STOP" THEN 360 
290 IF LEN(TS) = 0 THEN 
PRINT "GEEF TIJDSCHRIFTTITEL AUB" : GOTO 260 
300 IF LEN(TS) < 40 THEN 


LET TS = T$ +" " : GOTO 300 
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305 
310 


REM 
REM 
REM 


REM 
REM 


REM 


REM 


WEGSCHRIJVEN EN HERHALEN 
PRINT #1, TS 

CLS 

GOTO 260 

AFSLUITING 


CLOSE 
PRINT “BESTAND GESLOTEN" 


END 


TOETSVRAAG 28; HOOFDSTUK 5 


VARIABELENLIJST 

= N1$, N2S, N3$ : BESTANDNAMEN 

= RIS, R2$ : RECORDS VAN BESTAND 1 RESP. 2 
= DS : DIALOOG 

BESTANDEN 


1. TWEE SEQ. INVOERBESTANDEN (NIS, N2$) 
2. EEN SEQ. UITVOERBESTAND (N3$) 


INITIALISATIES 


CLEAR 500 

LINE INPUT "NAAM BESTAND 1: “; NIS 
LINE INPUT "NAAM BESTAND 2: "; N2$ 
LINE INPUT "NAAM BESTAND 3: "; N3$ 


MAXFILES = 3 

OPEN NIS FOR INPUT AS 1 

OPEN N2$ FOR INPUT AS 2 

OPEN N3$ FOR OUTPUT AS 3 
PRINT “SAMENVOEGEN BEGONNEN" 
LEES RECORD BESTAND 1 


IF EOF(1) THEN 590 
INPUT #1, RiS 


LEES RECORD BESTAND 2 


IF EOF(2) THEN 640 
INPUT #2, R2$ 


BEPAAL WEG TE SCHRIJVEN RECORDS 
IF R1$ = R2$ THEN 470 


IF R1$ < R2$S THEN 470 
GOTO 530 


(wordt vervolgd) 
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REM 
REM 
REM 


REM 
REM 
REM 


REM 


SCHRIJF RECORD VAN BESTAND 1 NAAR 3 EN LEES NIEUW RECORD 


PRINT #3, RIS 

IF EOF(1) THEN 590 
INPUT #1, RIS 
GOTO 410 


IDEM, BESTAND 2 NAAR 3 


PRINT #3, R2$ 

IF EOF(2) THEN 640 
INPUT #2, R2$ 
GOTO 410 


DUMP RESTANT 2 IN 3 
PRINT #3, R2$ 

IF EOF(2) THEN 700 
INPUT #2, R2$ 

GOTO 590 

DUMP RESTANT 1 IN 3 
IF EOF(1) THEN 700 
INPUT #1, RIS 

GOTO 640 


SLUIT BESTANDEN EN GEEF CONTROLE-OPTIE 


PRINT ED RIS 


Ee 1,2, 3 


LS 
PRINT "SAMENVOEGEN KLAAR" 
PRINT ““ : PRINT ** 


LINE INPUT "WILT U RESULTEREND BESTAND ZIEN? (J/N): 


IF LEFTS(DS,1) = *N" THEN 850 
DRUK BESTAND 3 AF 
OPEN N3$ FOR INPUT AS 1 
IF EOF(1) THEN 840 
INPUT #1, RIS 
GOTO 790 
AFSLUITING 
CLOSE 


END 


Antwoorden op de toetsvragen 
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3. 


200 REM 


240 REM 
250 REM 
255 REM 


280 REM 


370 REM 
385 REM 


430 REM 


TOETSVRAAG 3, HOOFDSTUK 5 


VARIABELENLIJST 

=N$ : NAAM VAN BESTAND 
= D1S,D2$ DIALOOG 
= Ks KLUS 


INITIALISATIES 


LINE INPUT "NAAM BESTAND: "; NS 
MAXFILES = 2 

OPEN NS FOR INPUT AS 1 

OPEN "HULP" FOR OUTPUT AS 2 


LINE INPUT "WILT U TOEVOEGEN OF VERWIJDEREN (T/V): “; DIS 
THEN 


IF DIS > "T" AND DIS > "V" 
PRINT “INVOERFOUT, OPNIEUW AUB" + GOTO 210 
IF DIS = "T" THEN 390 


VERWIJDEREN 


PRINT "GEEF NA VERSCHIJNEN VAN BESTANDREGEL OP SCHERM * 
PRINT "EEN 'V' (ZONDER AANH.TEKENS) OM TE VERWIJDEREN" 


IF EOF(1) THEN 500 

INPUT #1, K$ 

PRINT Ks 

LINE INPUT "GEEF 'V' OF RETURN: “; D2$ 

IF D2$ = "V" THEN 290 

IF LEN(D2$) <> THEN PRINT “INVOERFOUT" + GOTO 320 


PRINT #2, K$ 
GOTO 290 


TOEVOEGEN 


IF EOF(1) THEN 440 
INPUT #1, KS 
PRINT #2, K$ 

GOTO 390 


LINE INPUT Kr ltd KLUS OP OF 'STOP': *; K$ 
IF K$ = 'STOP' TH 

PRINT #2, K$ 

GOTO 440 

KOPIEER HULPBESTAND TERUG 

CLOSE 1, 2 


OPEN "HULP" FOR INPUT AS 1 
OPEN N$ FOR OUTPUT AS 2 


IF EOF(1) THEN 600 
INPUT #1, KS 
PRINT #2, KS 

GOTO 550 

CLOSE 


END 


6 GEGEVENSBESTANDEN OP 
CASSETTEBAND 


6.0 DOELSTELLINGEN 


De eerder besproken technieken voor sequentiële schijfbestanden 
leert u in dit hoofdstuk toepassen op cassettebestanden. 


6.1 INLEIDING 


Als u het voorgaande hoofdstuk met succes hebt doorgewerkt dan 
bent u nu in staat met gegevenbestanden op schijfgeheugen te wer- 
ken. In dit hoofdstuk breiden we die kennis zo uit, dat u ook met 
bestanden op cassettes kunt omgaan. 


Het gebruik van cassettes heeft nadelen. Cassettes zijn storing- 
gevoelig en, in vergelijking met schijfgeheugens, tergend langzaam. 
In verband met dat laatste raden we aan zo mogelijk met een set van 
twee recorders te werken. Bent u van plan serieus en op grote 
schaal met gegevensbestanden te werken, dan verdient schijfappa- 
ratuur overigens zeker de voorkeur. 


Ondanks deze reserves en de bekende gruwelverhalen over het per 
ongeluk wissen of verminken van cassettebanden, valt in het alge- 
meen toch wel redelijk met dit medium te werken. Voorwaarde daar- 
toe is een systematische en nauwkeurige werkwijze. Enkele poten- 

tiële problemen kunnen bovendien bij voorbaat worden voorkomen 

door gebruik te maken van speciale computer- in plaats van audio- 
cassettes. Deze hebben geen aanloopstrook, zodat gegevens bij het 
beschrijven van het begin van de band niet verloren kunnen gaan. 


Bedieningsfouten kunnen voor een belangrijk deel worden uitgeslo- 
ten door instructies op het scherm af te drukken, zodat de gebrui- 
ker weet wanneer het apparaat moet worden gestart, wanneer de 
band moet worden teruggespoeld, enzovoort. Enkele voorbeelden : 
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LAAD ONBESCHREVEN CASSETTE 
DRUK OP RECORD/PLAY 

GEEF RETURN OM VERDER TE GAAN 
STOP CASSETTE 

SPOEL CASSETTE TERUG NAAR BEGIN 
DRUK OP PLAY 


Tegenwoordig komt gelukkig steeds meer apparatuur en programma- 
tuur beschikbaar waarbij de fysieke besturing software-matig (van- 
uit het gebruikersprogramma) kan worden geregeld. Bedieningsfou- 
ten kunnen hierdoor gemakkelijker worden uitgesloten. We gaan 
ervan uit, dat u over zo'n datarecorder beschikt. 


6.2 BESCHRIJVEN EN LEZEN VAN CASSETTEBANDEN 


De BASIC-opdrachten voor het beschrijven en lezen van cassette- 
banden zien er in grote lijnen ongeveer hetzelfde uit als voor schijf 
geheugens. Op sommige punten zijn ze zelfs eenvoudiger. Een voor- 
beeld van een leesopdracht is: 


180 INPUT #1, A, B$, C$ 
en van een schrijfopdracht: 
200 PRINT #1, A; BS; “,"; CS 


Bij het schrijven moeten we ook komma's tussen strings forceren, 
zoals bij schijfbestanden. 


De bestanden worden op cassetteband geregistreerd onder de naam 
"CAS :naam". Geheugenbuffers worden op dezelfde wijze geopend 
en gesloten als bij schijfbestanden. Het openen van het bestand 
INVENT op cassetteband gaat bijvoorbeeld als volgt: 


OPEN “CAS: INVENT" FOR OUTPUT AS 1 


Ogenschijnlijk wordt ons programmeerleven er alleen maar eenvoudi- 
ger op. Er zijn echter wel de nodige regels waarmee rekening moet 
worden gehouden. 


N.B. Denk eraan dat bij een INPUT #-opdracht de variabelen door 
een „ gescheiden worden (INPUT #1,A,B,C) en bij een 
PRINT #-opdracht door een ; (PRINT #1, A;B;C). 
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1, Records worden op cassetteband onderling gescheiden door een 
zogenaamd inter-record gap, dat wil zeggen een stukje onbe- 
schreven band. Gebruikt u drie verschillende 'PRINT #'- 
opdrachten waarbij steeds één variabele wordt weggeschreven, 
dan ontstaat op de band driemaal zo'n stukje loze ruimte. Dit 
pleit voor het wegschrijven van meer gegevens per record, zodat 
minder ruimte wordt verspild, 


voorbeeld: 
De constructie: 


PRINT #1, A 
PRINT #1, B 
PRINT #1, C 


vergt driemaal een inter-record gap. 
Bij de constructie 
PRINT #1, A; B; C 
ontstaat slechts eenmaal een inter-record gap. 


2, Als de computer bij het uitvoeren van een INPUT-opdracht zijn 
gegevens zoekt voorbij de plaats waar ze op de cassetteband zijn 
vastgelegd, kan hij als het ware geblokkeerd raken. Ook de 
BREAK-toets heeft dan geen effect. Het kan dan nodig zijn het 
gehele systeem te herstarten, waarbij programma en de in het 
geheugen aanwezige gegevens verloren gaan. Een paardemiddel 
dus. Het verdient daarom aanbeveling cassettes voor of na 
gebruik steeds naar het begin terug te spoelen. 


eo 


Programmeer één der functietoetsen voor het commando "motor" 
om met deze toets tijdens de uitvoering van een programma de 
moter van de datarecorder aan te kunnen zetten. Terugspoelen 
naar het begin van een cassetteband lukt anders niet zonder 
programmaonderbreking. 


Een voorbeeld: inventarisprogramma 
Als voorbeeld gebruiken we het in hoofdstuk 4 besproken inventa- 


risprogramma ($ 4.5). Dit programma was gebaseerd op schijfbe- 
stand en zag er als volgt uit: 


Vraag 


(a) Geef aan welke aanpassingen nodig zijn om dit programma 
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PROGRAMMA VOOR HET AANMAKEN VAN EEN INVENTARISBESTAND 


VARIABELEN 

= V$ _: OMSCHRIJVING VOORWERP 

= N___: AANTAL STUKS 

= W__: WAARDE PER STUK 

= A$ : HULPVARIABELE T.B.V. DIALOOG 


BESTANDEN 
= SEQUENTIEEL BESTAND OP FLOPPY 


INITIALISEREN 
OPEN “INVENT" FOR OUTPUT AS 1 
GEGEVENSINVOER 


LINE INPUT “OMSCHRIJVING (MAX, 20 TEKENS): * 
IF LEN(VS) > 20 THEN 
PRINT “AFKORTEN TOT MAX, 20 TEKENS AUB" : 
IF LEN(VS) = 0 THEN 
PRINT “OMSCHRIJVING OPGEVEN AUB" : 
u LEN(VS) < 20 THEN V$ = V$ +" " 
INPUT "AANTAL STUKS Nn 
IF N © _INT(N) THEN 
PRINT "ALLEEN GEHELE GETALLEN AUB" : 
IF N <= 0 THEN 
PRINT “AANTAL OPGEVEN AUB" 
INPUT “GELDWAARDE PER STUK et. 
IF W<e 0 THEN 350 


WEGSCHRIJVEN NAAR BESTAND EN HERHALEN 
PRINT #1, VS; *‚*; N; 

LINE INPUT “NOG MEER ares (J/N): 
IF LEFTS(AS,1) = *N" THEN 410 

GOTO 240 

CHECK OP WAARDE 


LINE INPUT "WAARDE <= 0. OK? (J/N) : *; AS 
IF LEFTS(A$,1) = *N* THEN 


GOTO 240 
GOTO 240 
GOTO 265 
GOTO 270 
GOTO 270 


PRINT “DAN OPNIEUW INVOEREN AUB" : GOTO 300 


GOTO 320 

BESTAND AFSLUITEN EN STOPPEN 
CLOSE 1 

END 
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geschikt te maken voor een cassette- in plaats van een schijf- 
bestand. 


(a) Regel 180, commentaar aanpassen. 
210 OPEN "CAS:INVENT" FOR OUTPUT A; 


Ss 1 


186 Gegevensbestanden op cassetteband 


Behalve deze aanpassingen zou een goed opgezet programma 
bovendien de volgende aanwijzingen bevatten: 


200 REM _INITIALISEREN 


205 REM 

207 PRINT “PLAATS CASSETTE IN RECORDER" 
208 PRINT "DRUK RECORD/PLAY IN“ 

430 PRINT "STOP RECORDER EN SPOEL TERUG" 
440 REM 

Opdracht 


Draai het resulterende programma, en maak daarbij een cassette 
bestand met enkele inventarisgegevens. 


We schrijven vervolgens een programma om het cassettebestand, 
dat door bovenstaand programma wordt geproduceerd, te lezen en 
daarvan een overzicht te maken. U wordt gevraagd de ontbrekende 
regels te leveren. 


(a) 
100 REM OVERZICHT MAKEN VAN INVENTARISBESTAND 


120 REM VARIABELEN 
130 REM = VS: OMSCHRIJVING VOORWERP 


140 REM =N__ 7 AANTAL STUKS 

150 REM = W__: WAARDE PER STUK 

155 REM =X$ : DIALOOG 

160 REM 

170 REM BESTANDEN 

180 REM _ - INVENT : SEQUENTIEEL (CASSETTE) 

190 REM 

200 REM _INITIALISEREN 

205 REM 

207 waveenensnverenservnnnneverven à REM *** GEEF AANWIJZING DAT GEBRUI- 
KER RECORDER MOET STARTEN «++ 

208 wuunevenrsenvenveererenvrrvere à REM *** LAAT GEBRUIKER ENTER GEVEN 
OM PROGRAMMA VOORT TE 
ZETTEN beeke 

210 OPEN "CAS: INVENT" FOR INPUT AS 1 

220 REM 

230 REM 

240 REM DRUK KOP AF VAN OVERZICHT 

245 REM 

250 PRINT “OMSCHRIJVING"; TAB(22); "AANTAL"; TAB(30); "WAARDE" 

255 PRINT 

260 REM 

(a) 207 PRINT "LAAD CASSETTE EN SPOEL ZONODIG TERUG" 

208 INPUT "GEEF RETURN VOOR VOORTZETTING PROGRAMMA"; XS 


Nu nog het volgende stukje: 
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(a) 270 REM GEGEVENS INLEZEN VAN BESTAND EN AFDRUKKEN 


275 REM 
280 : REM *e* LEES RECORD *** 
290 REM *e** DRUK REGEL AF *ee 
300 REM *** SPRING TERUG VOOR 
VOLGENDE RECORD *** 
310 REM 
(a) 280 INPUT #1, VS, N, 
290 PRINT vs, Tholze), N, Vv 
300 GOTO 280 


Het volledige programma ziet er als volgt uit: 


100 REM OVERZICHT MAKEN VAN INVENTARISBESTAND 


120 REM VARIABELEN 

130 REM = V$ : OMSCHRIJVING VOORWERP 
140 REM = N__: AANTAL STUKS 

150 REM - W__ : WAARDE PER STUK 

155 REM __- X$ : DIALOOG 


160 REM 

170 REM BESTANDEN 

180 REM - INVENT : SEQUENTIEEL (CASSETTE) 

190 REM 

200 REM _INITIALISEREN 

205 REM 

207 PRINT "LAAD CASSETTE EN SPOEL ZONODIG TERUG" 
208 INPUT "GEEF RETURN VOOR VOORTZETTING PROGRAMMA * 
210 OPEN "CAS: INVENT" FOR INPUT AS 1 

220 REM 

230 REM 

240 REM DRUK KOP AF VAN OVERZICHT 

245 REM 

250 PRINT "OMSCHRIJVING"; TAB(22); "AANTAL"; TAB(30); "WAARDE" 
255 PRINT 

260 REM 

270 REM GEGEVENS INLEZEN VAN BESTAND EN AFDRUKKEN 
275 REM 

280 INPUT #1, VS, N, 

290 PRINT vs, Totze), N, W 

300 G0TO 280 

310 REM 

999 END 


End-of-file (EOF) bij cassettes 


Uitvoering van het bovenstaande programma zou een schoonheids- 
fout aan het licht brengen. Er is namelijk geen enkele controle op 
het bereiken van het einde van het bestand, de zogenaamde end- 
of-file toestand. Het programma zou dan ook eindigen met de mel- 
ding "INPUT PAST END", 


Ook bij het lezen van cassettes kan de EOF-functie, die we eerder 
bij schijfbestanden zijn tegengekomen, gebruikt worden. We kunnen 
daarom voor regel 300 opnemen: 


300 IF NOT EOF(1) THEN 280 
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We kunnen ook zelf het einde van het bestand aangeven. Daarvoor 
kunnen we een bijzondere gegevenswaarde kiezen die buiten het 
normale 'waardenbereik' van het desbetreffende gegeven valt, bij- 
voorbeeld STOP, *, 999 of -1. Door met zen IF...THEN op de aan- 
wezigheid van zo'n gegeven te controleren kunnen we eenvoudig 
constateren of het einde van het bestand is bereikt. Vergeet echter 
niet deze afsluitwaarde te documenteren. 


Toetsvragen 


(a) Pas het programma van p.185 nogmaals aan, en wel zodanig 
dat sterretjes (*) en nullen als afsluitwaarden aan het einde 
van het bestand worden opgenomen. 


(b) Hoeveel afsluitwaarden zijn nodig? Waarom? 


(e) Pas het bovenstaande programma voor het maken van een 
overzicht van het inventarisbestand zo aan, dat er op de in 
(a) bedoelde afsluitwaarden wordt getest. Indien afsluitwaar- 
den gevonden worden dient een sprong uitgevoerd te worden 
naar de volgende opdrachten: 


400 PRINT “TAAK BEEINDIGD" 
999 END 


(a) 410 PRINT #1, "e"; 0; 0 
(Verander het regelnummer van de CLOSE-opdracht (410) in 
415.) 


(b) Drie, te weten één sterretje (voor het alfanumerieke gegeven 
V$) en twee nullen (voor de numerieke gegevens N en W). 
Gebruikt u alleen een sterretje dan ontstaat bij uitvoering van 
de INPUT-opdracht in regel 270 een invoerfout (INPUT 
ERROR). 


(e) 285 IF VS = "+" THEN 400 


Wissen van cassetteband 


Om oude gegevens van cassetteband te verwijderen verdient het 
aanbeveling gebruik te maken van een speciaal apparaat, een zoge- 
naamde bulk eraser, De ingebouwde wiskop van de gewone recor- 
der voldoet misschien uitstekend voor audio-toepassingen, maar 
voor computergebruik is hij niet betrouwbaar. Overschrijft u een 
oud bestand met nieuwe gegevens, dan kunnen daardoor problemen 
ontstaan. Dit pleit tevens voor het opslaan van slechts één bestand 
per cassette. Afgezien van het voordeel dat u de band niet hoeft 
af te zoeken voor een bepaald bestand, kunt u bovendien de 
gehele band in één keer wissen als het bestand niet meer nodig is. 
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Een of twee cassettes? 


Programmeren met cassettebanden wordt eenvoudiger als u de 
beschikking hebt over twee recorders. De utility-programma's van 
hoofdstuk 5 laten zich dan gemakkelijk aanpassen. Met slechts één 
recorder gaat het moeilijker. Als 'tijdelijk bestand’ zult u dan 
gebruik moeten maken van een array in het interne geheugen van de 
computer. U simuleert dus als het ware het tijdelijke bestand in het 
interne geheugen. Daarbij loopt u het risico dat grotere bestanden 
wegens tekort aan geheugenruimte niet verwerkbaar zijn. Het inter- 
ne geheugen is immers betrekkelijk klein. Het is zaak hierop te let- 
ten, en grotere bestanden zoveel mogelijk te vermijden of eventueel 
in kleinere op te splitsen. 


6.3 KOPIËREN MET ÉÉN CASSETTE 


Als voorbeeld van het werken met slechts één cassetterecorder 
behandelen we in deze paragraaf het kopiëren van een cassettebe- 
stand. We beginnen met een programma om het te kopiëren bestand 
aan te maken. De specificaties zijn als volgt. 


1. De gegevens zijn van statistische aard (bijvoorbeeld leeftijd, 
snelheid waarmee gereden is, enz.) en bestaan uit numerieke 
waarden van 1 t/m 100. Controleer deze gegevens bij invoer. 


2. De ingevoerde waarden worden stuk voor stuk met één 'PRINT #'— 
opdracht naar het bestand weggeschreven (één variabele). 


3. Minimaal 20 waarden, maximaal 400. 
4, Gebruik -999 als afsluitwaarde. 


Vraag 


(a) Schrijf overeenkomstig bovengenoemde specificaties een pro- 
gramma voor het aanmaken van een bestand. Voer het program- 


ma uit. 
(a) 100 REM AANMAKEN BESTAND 
110 REM 
120 REM BESTAND: STAT! (CASSETTE) 
130 REM 
140 REM _ INITIALISATIE 
150 REM 
160 OPEN “CAS:STAT1" FOR OUTPUT AS 1 
170 REM 
200 REM GEGEVENS INVOEREN EN WEGSCHRIJVEN 
205 REM 
210 INPUT "GEEF WAARDE OF -999: *; W 
220 IF W = -999 THEN 299 
230 IF W <1 OR W > 100 THEN 


PRINT "INVOERFOUT. OPNIEUW AUB" : GOTO 210 
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240 PRINT #1, W 

50 G0TO 210 

298 REM 

299 PRINT #1, -999 
300 CLOSE: END 


Het kopiëren 


Vervolgens schrijven we een kopieerprogramma gebaseerd op het 
gebruik van één recorder. Hierbij kan de array worden opgevat als 
een tijdelijk bestand. De grootte van de array (die we A zullen noe- 
men) hangt af van het aantal waarden. Aangezien er een maximum 
van 400 waarden te verwachten is kunnen we de array dus declare- 
ren met DIM A(400). We kunnen ook uitgaan van een op te geven 
maximum (X) en een variabele arraydeclaratie gebruiken: DIM A(X). 


Verder is het van belang te weten hoe de gegevens naar het oor- 
spronkelijke bestand werden weggeschreven. De opdracht daarvoor 
was: 


PRINT #1, W 
Met deze zaken in gedachten kunnen we gaan programmeren: 


100 REM _KOPIEREN 


120 REM _ VARIABELENLIJST 

130 REM = W__: WAARDE UIT BESTAND 

140 REM _-T : TELLER 

150 REM = A _: ARRAY 

160 REM = X___: ARRAY DIMENSIE (VARIABEL) 
165 REM = R$ : RESPONS 


180 REM BESTANDEN 

190 REM = STAT1 : OORSPR. CASSETTEBESTAND 
200 REM = STATIA : KOPIE 

210 REM AFSLUITWAARDE -999 (NUMERIEK) 


220 REM 

230 REM _ INITIALISATIES 

235 REM 

240 CLS 

250 PRINT "PLAATS STAT1 BANDJE IN RECORDER” 
260 PRINT "SPOEL TERUG EN DRUK OP PLAY" 
270 INPUT "GEEF RETURN OM VERDER TE GAAN "; RS 
275 OPEN "CAS:STAT1" FOR INPUT AS 1 

280 REM 

290 INPUT "MAX. AANTAL WAARDEN "; X 

300 DIM A(X) 

310 LET T = 0 

320 REM 


Tot zover het inleidende deel. We kunnen nu de waarden van het 
bestand inlezen en opslaan in array A. Het volgnummer van de inge- 
lezen waarden houden we bij met de teller T. Maak het volgende 
programmasegment zelf af. 
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(a) 330 REM ARRAY VULLEN MET BESTANDINHOUD 


335 REM 
0 ‘arveavudensaonerddsacecdsenses : REM «er LEES WAARDE UIT BESTAND **+ 
350 AFSLUITWAARDE? GOTO 410 *** 
50  veanerwsrsvenendenenndisesnde : REM *** HOOG TELLER OP *** 
370 : REM *** WAARDE --> ARRAY *e* 
380 GOTO 340 
390 REM 
(a) 340 INPUT #1, W 
350 IF W = -999 THEN 410 
360 LEE MeT #01 
370 LET A(T) = W 


Wellicht hebt u in regel 340 in plaats van W het array-element in de 
INPUT -opdracht opgenomen, dus: INPUT #1, A(T). Dit is mogelijk 
(hoewel het eerste gegeven zich dan in A(0) in plaats van A(1) zou 
bevinden). Zoals we bij volgende toepassingen zullen zien is het 
echter beter een invoerwaarde niet rechtstreeks aan een array- 
element toe te kennen. 


Toetsvraag 


(a) Indien bij uitvoering van regel 350 een afsluitwaarde wordt 
geconstateerd en er dus naar regel 410 wordt gesprongen, welke 
handelingen moeten daar dan worden uitgevoerd? 

(a) Wisselen van cassettebanden, en kopiëren van array naar de 
nieuwe band. 


In het volgende deel programmeren we de in (a) bedoelde handelin- 
gen. Geef zelf de ontbrekende regel (490) en beantwoord vraag (b). 


(a) 400 REM INITIALISEER KOPIE 


405 REM 

410 CLS 

415 CLOSE 

420 PRINT “SPOEL STAT1 BANDJE TERUG" 

430 PRINT "PLAATS NIEUW BANDJE IN RECORDER” 
440 PRINT "DRUK OP RECORD/PLAY" 

450 INPUT "GEEF RETURN OM VERDER TE GAAN "; R$ 
455 OPEN "CAS:STAT1IA" FOR OUTPUT AS 1 

460 REM 

470 REM KOPIEER ARRAY NAAR CASSETTE 

475 REM 

480 FOR I= 1 TOT 

40 vavorerenorarssormennsene z REM **e SCHRIJF WAARDE NAAR CASSETTE **» 
500 NEXT 1 

510 REM 
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(a) 490 PRINT #1, A(I) 


(b) Bij het kopiëren van de array naar de cassette moet bekend 
zijn hoeveel array-elementen geldige gegevens bevatten. 


We sluiten het programma met het schrijven van de afsluitwaarde. 


520 REM _AFSLUITWAARDE PLAATSEN 


525 REM 
530 PRINT #1, -999 
PRINT “EINDE PROGRAMMA" 
550 REM 
CLOSE 
999 END 


Het volledige programma voor het kopiëren van een cassettebestand 
ziet er als volgt uit: 


100 REM _KOPIEREN 


120 REM _VARIABELENLIJST 
130 REM = W_ 7 WAARDE UIT BESTAND 
8 


140 REM - : TELLER 

150 REM -A _: ARRAY 

160 REM = X___: ARRAY DIMENSIE (VARIABEL) 
165 REM = R$ : RESPONS 

170 REM 


180 REM BESTANDEN 


190 REM = STAT OORSPR. CASSETTEBESTAND 


200 REM - STATIA : KOPIE 

210 REM AFSLUITWAARDE -999 (NUMERIEK) 

220 REM 

230 REM INITIALISATIES 

235 REM 

240 CLS 

250 PRINT “PLAATS STAT! BANDJE IN RECORDER" 
260 PRINT "SPOEL TERUG EN DRUK OP PLAY” 

270 INPUT "GEEF RETURN OM VERDER TE GAAN "; R$ 
275 OPEN "CAS:STAT1" FOR INPUT AS 1 

280 REM 

290 INPUT “MAX. AANTAL WAARDEN "; X 

300 DIM A(X) 

310 LET T = 0 

320 REM 

330 REM _ARRAY VULLEN MET BESTANDINHOUD 

335 REM 

340 INPUT #1, W 

350 IF W = -999 THEN 410 

360 LETT =T 41 

370 LET A(T) = W 

380 GOTO 340 

390 REM 

400 REM INITIALISEER KOPIE 

405 REM 

410 es 

415 CLOSE 

420 PRINT “SPOEL STAT! BANDJE TERUG" 

430 PRINT “PLAATS NIEUW BANDJE IN RECORDER” 
440 PRINT “DRUK OP RECORD/PLAY* 

450 INPUT “GEEF RETURN OM VERDER TE GAAN "; R$ 
455 OPEN “CAS:STATIA® FOR OUTPUT AS 1 


460 REM 
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470 REM KOPIEER ARRAY NAAR CASSETTE 


475 REM 

480 FOR I= 1 TOT 

490 PRINT #1, A(I) 

500 NEXT 1 

510 REM 

520 REM AFSLUITWAARDE PLAATSEN 
525 REM 

530 PRINT #1, -999 

540 PRINT "EINDE PROGRAMMA" 
550 REM 

560 CLOSE 

999 END 


6.4 UITBREIDEN VAN EEN CASSETTEBESTAND 


Voor het uitbreiden van een cassettebestand kunnen we dankbaar 
gebruik maken van een flink deel van het kopieerprogramma van de 
vorige paragraaf. Althans als we (nog steeds) uitgaan van het 
gebruik van één recorder. Ook in dit geval moet de inhoud van de 
cassetteband eerst in een array worden opgeslagen en vervolgens 
— maar dan zonder afsluitwaarde — naar een nieuw bandje worden 
geschreven. (Eventueel kan ook het oorspronkelijke bandje worden 
gebruikt, hoewel we dan geen backup-exemplaar hebben als er iets 
mis mocht gaan). We kunnen dus de regels 100 (met aangepaste 
titel) t/m 510 zonder meer van het bovenstaande kopieerprogramma 
overnemen. 


Toetsvragen 


(a) Wat moet er aansluitend op regel 510 gebeuren? 


(b) Maak in overeenstemming daarmee het volgende programmaseg- 
ment af. 


520 REM INVOER NIEUWE GEGEVENS (-999 = STOP) 
530 REM EN SCHRIJF NAAR BESTAND 


535 REM 
540 1 REM *** WAARDE INLEZEN --> W *** 
550 : REM *e* WEGSCHRIJVEN --> BESTAND *** 
B  erenseesnnaninekedseever z REM *** Wo - 999? GOTO 540 *** 
570 REM 
gel KN 
(a) Invoeren van aanvullende gegevens en toevoegen aan bestand. 
(b) 540 INPUT "GEGEVEN: "; W 
550 PRINT #1, W 
560 IF W <> -999 THEN 540 


N.B.: Voor het gemak hebben we hier afgezien van invoercontrole. 
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Array-dimensionering 


Bij het gebruik van een array als tijdelijk 'bestand' is het uiteraard 
van belang het aantal gegevens in dat bestand te kennen. De array 
kan dan in overeenstemming daarmee worden gedimensioneerd. In 
plaats van een schatting (zoals we tot nu toe hebben gedaan) kunnen 
we ook het aantal bijhouden en als eerste gegeven in het bestand 
opnemen. 


De procedure voor het uitbreiden van een cassettebestand wordt 
dan: 


1. Lees het eerste gegeven (zijnde het aantal) in, en ken dit toe 
aan bijvoorbeeld X. 


2. Bepaal via dialoog hoeveel records moeten worden toegevoegd (Y). 
3. Dimensioneer de array met X +Y. 
Kopieer het bestand naar de array. 


5. Lees de toe te voegen gegevens in (opslaan in array, aantal bij- 
houden). 


6. Schrijf totaal aantal gegevens (oud + nieuw) als eerste gegeven 
naar de cassette. 


7. Kopieer de gehele array naar cassette. 


Voorbeeldprogramma: boodschappenlijst (2) 


Als voorbeeld van de zojuist genoemde procedure passen we het 
boodschappenprogramma van hoofdstuk 5, $ 5.2 aan voor cassette 
bestanden. Het eerste gegeven in het bestand geeft daarbij het 
aantal records in het bestand aan. De overige records bevatten 
een artikelomschrijving en de hoeveelheid die van dat artikel moet 
worden aangeschaft. We gebruiken een twee-dimensionale array (zie 
figuur 6-1), 


1 2 
noeveelheid 


Dak 4 | | 


figuur 6-1 Array-indeling. 


Od 
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In verband daarmee werken we (in afwijking van $ 5.2) met een 
alfanumerieke variabele voor de hoeveelheid. 


100 REM UITBREIDEN VAN CASSETTE BOODSCHAPPENBESTAND 
110 REM 

120 REM _ VARIABELENLIJST 

130 REM = X_: TELLER (AANTAL RECORDS) 

140 REM = Y__: TELLER (AAN TOEGEVOEGDE RECORDS) 
150 REM = AS : OMSCHRIJVING ARTIKEL 

160 REM = H$ : HOEVEELHEID 


170 REM R$ : ARRAY VOOR TIJDELIJKE OPSLAG RECORDS 
180 REM DS : DIALOOG 
190 REM 


200 REM BESTANDEN 
210 REM __- BOODSCHAP (CASSETTE) 


220 REM 

230 REM _ INITIALISATIES 

235 REM 

240 PRINT “PLAATS BOODSCHAPCASSETTE IN RECORDER" 
250 PRINT “DRUK OP PLAY EN GEEF DIRECT DAARNA" 
260 INPUT “RETURN OM VERDER TE GAAN"; D$ 

265 OPEN “CAS:BOODSCH" FOR INPUT AS 1 

270 INPUT #1, X 

280 INPUT "AANTAL TOEVOEGINGEN: "; Y 

290 DIM RS(X+Y, 2) 

300 REM 

Toetsvragen 


(a) Wat is het doel van regel 270? 
(b) Verklaar regel 290. 
(e) Maak het volgende programmasegment af: 
310 REM KOPIEER BESTAND NAAR ARRAY 
5 REM 


31 

320 FOR I= 1 TO X 

330 wavseonneeven vervenereere à REM *** LEES RECORD VAN CASSETTE *** 
340 NEXT 1 

350 REM 


(d) Bestudeer de FOR/NEXT-lus in het volgende programmasegment 
en geef de opdrachten voor de regels 430 en 440. Regel 370 
bepaalt hoeveel nieuwe records worden toegevoegd. Opdracht 
380 houdt het eerstvolgende vrije element in array R$ bij. 


360 REM _GEGEVENSINVOER 


365 REM 

370 FOR I= 1 TOY 

380 LET X= Xe 1 

390 LINE INPUT “ARTIKELOMSCHRIJVING: 

400 LINE INPUT "HOEVEELHEID: 

410 REM 

420 REM VUL ARRAY 

425 REM 

430 Gesnanenenonersernenneene & REM *** PLAATS A$ IN ARRAY tet 
440 … : REM *** PLAATS HS IN ARRAY *** 
450 NEXT I 

455 CLOSE 
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(a) Inlezen van eerste gegeven in bestand (= aantal records). 


(b) Dimensioneert array R$ als X+Y (= aantal reeds aanwezige plus 
aantal toe te voegen records) bij 2, op te vatten als X+Y rijen 
van 2 kolommen. 


(e) 330 INPUT #1, RS(1,1), R$(1,2) 
(d) 430 LET R$(X,1) = A$ 
440 LET R$(X,2) = H$ 


Tenslotte kopiëren we de inhoud van de array naar cassette. Maak 
zelf de ontbrekende regels in het volgende segment af. 


(a) 470 REM AANWIJZINGEN RECORDER 


475 REM 
480 cs 
490 PRINT “PLAATS NIEUW BANDJE OF EVENTUEEL" 
500 PRINT “OORSPRONKELIJK BANDJE (TERUGSPOELEN!) IN RECORDER" 
510 INPUT "GEEF RETURN OM VERDER TE GAAN"; DS 
515 OPEN “CAS:BOODSCH" FOR OUTPUT AS 1 
520 REM 
530 REM SCHRIJF AANTAL RECORDS NAAR CASSETTE 
535 REM 
540 enten waer 
550 REM 
560 REM SCHRIJF ARRAYINHOUD NAAR CASSETTE 
565 REM 
570 FOR I= 1 TO X 
B tenen eee 
590 NEXT 1 
600 REM 
610 PRINT "EINDE PROGRAMMA” 
620 REM 

(a) 540 PRINT #1, X 
580 PRINT #1, RS(I,1); ","5 RS(I,2) 


Het volledige programma: 
100 REM UITBREIDEN VAN CASSETTE BOODSCHAPPENBESTAND 
M 


110 REI 

120 REM _VARIABELENLIJST 

130 REM = X __: TELLER (AANTAL RECORDS) 

140 REM = Y__: TELLER (AAN TOEGEVOEGDE RECORDS) 

150 REM = A$ _: OMSCHRIJVING ARTIKEL 

160 REM = H$ _: HOEVEELHEID 

170 REM = R$ : ARRAY VOOR TIJDELIJKE OPSLAG RECORDS 
180 REM =D$ : DIALOOG 

190 REM 


200 REM BESTANDEN 
210 REM = BOODSCHAP (CASSETTE) 
220 REM 


230 REM 
235 REM 
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INITIALISATIES 


PRINT “PLAATS BOODSCHAPCASSETTE IN RECORDER" 
PRINT "DRUK OP PLAY EN GEEF DIRECT DAARNA" 
INPUT “RETURN OM VERDER TE GAAN"; D: 

OPEN "CAS:BOODSCH" FOR INPUT AS 1 

INPUT #1, X 

INPUT “AANTAL TOEVOEGINGEN: "; Y 

DIM R$(X+Y, 2) 


KOPIEER BESTAND NAAR ARRAY 


FOR I = 1 TO X 
INPUT #1, RS(I,1), R$(1,2) 
NEXT 1 


REM 
360 REM GEGEVENSINVOER 
5 REM 


FOR I= 1 TOY 
LET X= Xe 1 
LINE INPUT “ARTIKELOMSCHRIJVING: “; A$ 
LINE INPUT “HOEVEELHEID : 
VUL ARRAY 


LET RS(X,1) = A$ 
LET RS$(X,2) = HS 
NEXT 1 
CLOSE 
AANWIJZINGEN RECORDER 
cs 
PRINT “PLAATS NIEUW BANDJE OF EVENTUEEL" 
PRINT "OORSPRONKELIJK BANDJE (TERUGSPOELEN!) IN RECORDER" 
INPUT "GEEF RETURN OM VERDER TE GAAN"; D$ 
OPEN “CAS:BOODSCH” FOR OUTPUT AS 1 
SCHRIJF AANTAL RECORDS NAAR CASSETTE 
PRINT #1, X 
SCHRIJF ARRAYINHOUD NAAR CASSETTE 
FOR I= 1 TO X 
PRINT #1, RS(I,1); *,"; R$(1,2) 
NEXT 1 
PRINT "EINDE PROGRAMMA” 
CLOSE 


END 


U beschikt nu over een redelijke basiskennis voor het werken met 
cassettebestanden. Programma's in voorgaande hoofdstukken die op 
schijfbestanden waren gebaseerd kunt u nu zelf aanpassen aan het 
gebruik van cassettebestanden. De clou is steeds een of meer arrays 
te laten functioneren als tijdelijk bestand. De grootte van het interne 
geheugen is daarbij in wezen de enige beperkende factor. 
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6,5 


(a) 


(b) 


2(a) 


(b) 


TOETSVRAGEN 


Schrijf een programma om records in een cassettebestand op te 
nemen. Ieder record bevat twee alfanumerieke gegevens, 
gevolgd door twee numerieke. Laat na invoer van ieder record 
de vraag "MEER GEGEVENS?" op het scherm verschijnen en 
neem een afsluitwaarde op als laatste record. 


100 REM OPGAVE IA, HOOFDSTUK 6 

110 REM 

120 REM _VARIABELENLIJST 

130 REM = AS, BS GEGEVEN 1 REXP. 2 (ALFANUMERIEK) 
140 REM = C$/C, D$/D EGEVEN 3 RESP, 4 (NUMERIEK) 
145 REM = R$ : RESPONS 

150 REM 


Schrijf een begeleidend programma voor vraag 1(a) om de 
inhoud van het cassettebestand te laten zien. Test daarbij op 
het bereiken van het bestandeinde. 


100 REM OPGAVE 1B, HOOFDSTUK 6 

110 REM 

120 REM _VARIABELENLIJST 

130 REM = A$, BS : GEGEVEN 1 RESP. 2 (ALFANUMERIEK) 
140 REM -C, D : GEGEVEN 3 RESP. 4 (NUMERIEK) 
150 REM 


Schrijf een boodschappenprogramma waarmee de volgende gege- 
vens in een cassettebestand kunnen worden opgenomen: 

= artikelomschrijving (maximaal 20 tekens) 

= hoeveelheid 


Bij de gegevensinvoercontrole dient nagegaan te worden of de 
ingevoerde hoeveelheid tussen 1 en 10 ligt. Valt de hoeveelheid 


buiten dit bereik, dan moet de gebruiker een andere hoeveel 
heid kunnen invoeren. 


100 REM OPGAVE 2A, HOOFDSTUK 6 


110 REM 

120 REM _VARIABELENLIJST 

130 REM = A$ : ARTIKELOMSCHRIJVING (MAX, 20 TEKENS) 
140 REM =H HOEVEELHE ID/AANTAL 

150 REM _- D$ : DIALOOG 

160 REM 


Schrijf een begeleidend programma voor vraag 2(a) waarmee de 
inhoud van het boodschappenbestand zichtbaar kan worden 
gemaakt. 


100 REM OPGAVE 28, HOOFDSTUK 6 

110 REM 

120 REM _ VARIABELENLIJST 

130 REM = AS _: ARTIKELOMSCHRIJVING 
140 REM - H_ : HOEVEELHEID 

150 REM 
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3(a) Schrijf een programma om op cassette een adresbestand op te 
nemen zoals aangegeven in onderstaande variabelenlijst. Voeg 
daarbij de verschillende gegevens samen tot één record per 


(b 


(e) 


persoon. 


100 ie OPGAVE 3A, HOOFDSTUK 6 


120 Ren VARIABELENLIJST 
: NAAM 


130 REM = 
140 REM - 
150 REM 5 


s 
à 
Ei 
2 
ind 


Ns(20) 

AS(20) : ADRES (STRAAT + HUISNR. ) 
PS(7) _: POSTCODE 

WS(20) : WOONPLAATS 

RS(67) : GEHELE RECORD 

Ds : DIALOOG 


Schrijf een begeleidend programma bij vraag 3(a) om de 
records stuk voor stuk op het scherm op te roepen. Houd tij- 
dens dit proces het aantal records bij, en druk na het laatste 


record het 


totaal af. 


100 REM OPGAVE 3B, HOOFDSTUK 6 


110 REM 


120 REM _VARIABELENLIJST 


130 REM - 
140 REM - 
150 REM 


R$ : EEN VOLLEDIG RECORD (67 TEKENS) 
T_: TELLER VOOR AANTAL RECORDS 


Schrijf een begeleidend programma bij vraag 3(a) om een kopie 
van het adresbestand op een afzonderlijke cassette te maken . 
Denk aan de bedieningsinstructies voor de recorder. 


100 KE OPGAVE 3C, HOOFDSTUK 6 
120 REN VARIABELENL LIJST 
M _- R$ 


: EEN VOLLEDIG RECORD (67 TEKENS) 


140 REM  - N__: AANTAL RECORDS IN BESTAND 
145 REM -A$ : ARRAY (1..N) 


150 REM - 


D$ : DIALOOG 


200 


Gegevensbestanden op cassetteband 


6.6 


1(a) 


(b) 


ANTWOORDEN OP DE TOETSVRAGEN 


100 
110 
120 
130 
140 
145 


OPGAVE 1A, HOOFDSTUK 6 


VARIABELENLIJST 

= A$, B$ : GEGEVEN 1 RESP, 2 (ALFANUMERIEK) 
= CS/C, DS/D : GEGEVEN 3 RESP, 4 (NUMERIEK) 

- R$ z RESPONS 


GEGEVENSINVOER EN -CONTROLE 


OPEN "CAS:0PG1" FOR OUTPUT AS 1 
LINE INPUT "GEGEVEN 1 (ALFANUM.): “; As 
IF LEN(AS) = 0 THEN 
PRINT “INVOER AUB" « GOTO 170 
LINE INPUT "GEGEVEN 2 (ALFANUM.): “; BS 
IF LEN(BS) = 0 THEN 
PRINT “INVOER AUB" : GOTO 190 
LINE INPUT "GEGEVEN 3 (NUMERIEK): “; CS 
IF LEN(CS) = 0 THEN 


PRINT "INVOER AUB" + GOTO 210 
IF VAL(CS) = 0 THEN 
PRINT “UITSLUITEND GETALLEN AUB" + GOTO 210 


LET C = VAL(C$) 
LINE INPUT "GEGEVEN 4 (NUMERIEK): “; DS 
IF LEN(DS) = 0 THEN 


PRINT “INVOER AUB" : GOTO 250 
IF VAL(DS) = 0 THEN 
PRINT "UITSLUITEND GETALLEN AUB" : GOTO 250 


LET D = VAL(D$S) 
PRINT #1, A$; "‚"; BS; “‚"; C; D 


LINE INPUT "MEER GEGEVENS? (J/N): "; R$ 
IF LEFTS(RS,1) = “J" THEN 170 


AFSLUITRECORD WEGSCHRIJVEN EN STOPPEN 


PRINT #1, -999; 0; 0; 0 
CLOSE 


END 


OPGAVE 1B, HOOFDSTUK 6 


VARIABELENLIJST 
= AS, BS : GEGEVEN 1 RESP. 2 (ALFANUMERIEK) 
„CG, D : GEGEVEN 3 RESP, 4 (NUMERIEK) 


INLEZEN VAN BESTAND EN AFDRUKKEN 
OPEN “CAS:0PG1" FOR INPUT AS 1 
INPUT #1, S$, BS, C‚, D 

IF A$ = -999 THEN STOP 

PRINT AS, BS, C‚ D 
GOTO 180 
CLOSE 


END 
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2(a) Ee REM OPGAVE 2A, HOOFDSTUK 6 
1 


120 REM _VARIABELENLIJST 

130 REM = AS : ARTIKELOMSCHRIJVING (MAX. 20 TEKENS) 
140 REM = H__: HOEVEELHEID/AANTAL 

150 REM = D$ : DIALOOG 


160 REM 
170 REM _GEGEVENSINVOER EN -CONTROLE 
180 REM 
190 PRINT "GEEF -999 OM TE STOPPEN" 
200 PRINT 
205 OPEN "CAS:0PG2" FOR OUTPUT AS 1 
210 LINE INPUT "ARTIKELOMSCHRIJVING: "; AS 
220 IF A$ = "-999" THEN 350 
230 IF LEN(AS) = 0 THEN 
PRINT “INVOER AUB" : GOTO 210 
240 IF LEN(AS) > 20 THEN 
PRINT “MAX. 20 TEKENS TOEGESTAAN. OPNIEUW AUB“ : GOTO 210 
250 INPUT “HOEVEELHEID: “CH 
260 IF Hoe | AND H <= 10 THEN 320 
270 PRINT “INGEVOERD: "5 H 
280 LINE INPUT “AKKOORD? (J/N): *; DS 
290 IF LEFTS(DS,1) = *N* THEN 250 
300 REM 
310 REM SCHRIJF NAAR BESTAND EN HERHAAL 
315 REM 
320 PRINT #1, AS; "‚"5 H 
330 GTO 210 
340 REM 
345 REM _AFSLUITRECORD SCHRIJVEN EN STOPPEN 
346 REM 
350 PRINT #1, -999; 0 
360 CLOSE 
370 REM 
999 END 


(b) 100 REM OPGAVE 28, HOOFDSTUK 6 


120 REM _ VARIABELENLIJST 
130 REM = A$ : ARTIKELOMSCHRIJVING 
140 REM =H __: HOEVEELHEID 


150 REM 

160 REM 

170 REM RECORD INLEZEN EN AFDRUKKEN 
180 REM 

185 OPEN “"CAS:0PG2“ FOR INPUT AS 1 
190 PRINT "ARTIKEL"; TAB(24); "HOEVEELHEID" 
200 INPUT #1, AS, 

210 IF A$ = "-999" THEN 250 

220 PRINT A$; TAB(24); H 

230 GOTO 200 

240 REM 

250 PRINT: PRINT “EINDE BESTAND" 
260 REM 

270 CLOSE 

280 REM 


999 END 
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Gegevensbestanden op cassetteband 


3(a) 


3(b) 


100 
110 RI 


REM 


REM 


REM 


OPGAVE 3A, HOOFDSTUK 6 
VARIABELENLIJST 
s(20) 


5 : NAAM 

= AS(20) : ADRES (STRAAT + HUISNR. ) 
= P$(7) _: POSTCODE 

= W$(20) : WOONPLAATS 

- RS$(67) : GEHELE RECORD 

= D$ : DIALOOG 


INITIAL ISEREN 

CLEAR 1000 

GEGEVENSINVOER EN -CONTROLE 
OPEN "CAS:0PG3" FOR OUTPUT AS 1 


LINE INPUT "NAAM (MAXIMAAL 20 TEKENS) 5 MENS 
IF LEN(NS) < 20 THEN LET NS = NS +" " : GOTO 310 
IF LEN(NS) > 20 THEN 

PRINT "MAXIMAAL 20 TEKENS. OPNIEUW AUB" : GOTO 300 
LINE INPUT "STRAAT + HUISNR (MAX. 20 TEKENS) 1 *; A$ 
IF LEN(AS) < 20 THEN LET AS = A$ + + GOTO 350 
IF LEN(AS) > 20 THEN 

PRINT “MAXIMAAL 20 TEKENS. OPNIEUW AUB" : GOTO 340 
LINE INPUT “POSTCODE (XXXX XX) 1 * PS 
IF VAL(LEFTS(PS,4)) = O THEN 

PRINT “IN POS, 1-4 ALLEEN CIJFERS. OPNIEUW AUB” : GOTO 380 
HI = ASC(MIDS(PS,6,1)) : REM *** POS, 6 = LETTER? 
IF HI < 65 OR HI > 90 THEN 

PRINT “LETTER IN POS. 6 NODIG, OPNIEUW AUB" : GOTO 380 
HI = ASC(MIDS(PS,7,1)) : REM *** POS, 7 = LETTER? 
IF HI < 65 OR HI > 90 THEN 

PRINT “LETTER IN POS. 7 NODIG. OPNIEUW AUB" : GOTO 380 
HI = ACNE CER 5,1) z REM *** POS. 5 = SPATIE? 
IF HI © 32 

PRINT SSoaTiE IN POS. 5 NODIG. OPNIEUW AUB“ : GOTO 380 
LINE INPUT Kdl (MAX. (20 TEKENS) H Ws 
IF LEN(NS) < 20 THEN WS = W$ + : GOTO 480 
IF LENS} > 20 THEN 

PRINT "MAXIMAAL 20 TEKENS. OPNIEUW AUB" : GOTO 470 


LET R$ = NS + A$ + PS + WS 
PRINT #1, R$ 


LINE INPUT "MEER INVOER? (J/N): *; D$ 
IF LEFTS(DS,1) = "J" THEN 300 


PRINT #1, -999 


CLOSE 
END 


OPGAVE 3B, HOOFDSTUK 6 

VARIABELENLIJST 

= R$ _: EEN VOLLEDIG RECORD (67 TEKENS) 
ii | : TELLER VOOR AANTAL RECORDS 


INITIALISEREN 
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203 


3e) 


REM 


CLEAR 500 
OPEN “CAS:0PG3" FOR INPUT AS 1 
LETT =0 


LEES/TEL RECORD EN DRUK AF 


INPUT #1, RS 

LETT= T+ 1 

IF R$ = "-999" THEN 270 
PRINT T; " "; R$ 

GOTO 210 


PRINT 
PRINT "TOTAAL AANTAL RECORDS (INCL. AFSLUITRECORDS): "; T 


CLOSE 
END 
OPGAVE 3C, HOOFDSTUK 6 


VARIABELENL IJST 
= R$ _: EEN VOLLEDIG RECORD (57 TEKENS) 
-_N 7 AANTAL RECORDS IN BESTAND 
AS _ : ARRAY (1,.N) 
=D$ _: DIALOOG 


INITIALISATIES 


CLEAR 500 

OPEN “CAS:0PG3" FOR INPUT AS 1 

INPUT “HOEVEEL RECORD IN BESTAND: "; N 
DIM AS(N) 


RECORDS INLEZEN IN ARRAY 


FOR I= 1 TON 
INPUT #1, R$ 
LET As(I) = R$ 

NEXT 1 

CLOSE 


PRINT “STOP RECORDER, SPOEL TERUG EN VERWIJDER CASSETTE" 
PRINT “PLAATS NIEUWE CASSETTE IN RECORDER, SPOEL TERUG" 
PRINT “DRUK OP PLAY/RECORD” 
LINE INPUT “GEEF RETURN ALS U KLAAR BENT"; D$ 
OPEN “CAS:0PG3" FOR OUTPUT AS 1 
SCHRIJF AANTAL ALS EERSTE RECORD IN BESTAND 
PRINT a,_N 
KOPIEER ARRAY NAAR CASSETTE 
FOR 1= 1 TON 
LET R$ = AS(I) 
PRINT #1, R$ 
NEXT 1 
PRINT “KOPIE KLAAR" 
CLOSE 


END 


7 _DIRECT-TOEGANKELIJKE 
GEGEVENSBESTANDEN 


7,0 DOELSTELLINGEN 


Na bestudering van dit hoofdstuk moet u in staat zijn gebruik te 
maken van de volgende programma-opdrachten en functies om 
direct-toegankelijke gegevensbestanden te creëren, verifiëren, 
kopiëren en muteren: 


= FIELD-opdracht 
- LSET-opdracht 
= RSET-opdracht 
PUT-opdracht 
- GET-opdracht 
- LOF-functie 

= MKSS-functie 

= MKIS-functie 

—= MKDS-functie 
= CVS-functie 

= CVI-functie 

— CVD-functie 


' 


U moet bovendien in staat zijn sequentiële gegevensbestanden om te 
zetten in direct-toegankelijke. 


7.1 INLEIDING 


In deze laatste hoofdstukken gaan we in op het gebruik van direct- 
toegankelijke gegevensbestanden, een bestandsvorm die alleen op 
schijfapparatuur mogelijk is. 


Bij direct toegankelijke (Random Access) bestanden is alles 
anders. Niet alleen gebruiken we dit type bestanden voor andere 
doeleinden dan sequentieel toegankelijke bestanden, maar de 
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bufferorganisatie is anders; de opdrachten om records uit de buffer 
te halen en erin te stoppen zijn anders; de wijze waarop de gege- 
vens op diskette staan is anders, kortom, zoals gezegd, alles is 
anders. 


7.2 WAT IS EEN DIRECT-TOEGANKELIJK BESTAND? 


Een direct-toegankelijk gegevensbestand (Engels: 'direct access! of 
‘random access! data file) is een bestand waarbij de records recht- 
streeks te benaderen zijn, Daartoe worden ze genummerd. De 
records van een bestand hebben een standaardlengte van 256 bytes. 
De mogelijkheid bestaat om bij het aanmaken van het bestand een 
andere lengte te kiezen. Daarover straks meer, 


Dankzij de rechtstreekse benaderbaarheid maakt het voor het loka- 
liseren van een record weinig uit waar dit zich in het bestand 
bevindt. Alle records kunnen in principe even snel bereikt wor- 
den, zonder eerst andere records te moeten doorlopen. Bovendien 
kunnen records afzonderlijk worden gemuteerd. Met direct-toegan- 
kelijke bestanden kan daarom in het algemeen sneller en efficiënter 
worden gewerkt dan met sequentiële bestanden. Dit komt vooral 
tot uitdrukking als de mutatiegraad (dat wil zeggen de frequentie 
waarmee records moeten worden gewijzigd) hoog is, en/of de gege- 
vens in willekeurige volgorde verwerkt moeten worden. 


Het belangrijkste nadeel van direct-toegankelijke bestanden 

— althans in de hier beschreven vorm — is de vaste recordlengte. 
We bedoelen hier de lengte van het fysieke record, In uw pro- 
gramma werkt u (overigens net als bij sequentiële bestanden) met 
logische records. De lengte hiervan wordt bepaald door de inhoud 
van uw uitvoeropdrachten. Schrijft u met één PRINT een of meer 
gegevens met een gezamenlijke lengte van 100 bytes naar schijf, 
dan wordt (uitgaande van de standaard-recordlengte van 256 bytes) 
ruim 60% van de beschikbare ruimte niet benut, * 


Bij grotere toepassingen kan het voordelig zijn zowel de sequentiële 
als de direct-toegankelijke bestandsvorm te gebruiken. 


* Om ruimteverspilling te voorkomen of te beperken kunt u werken met zogenaam- 
de sub-records. Dit is echter een nogal ingewikkelde techniek die u beter kunt 
uitstellen tot u meer vertrouwd bent met direct-toegankelijke bestanden. 
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Toetsvragen 


(a) Wat is de optimale (logische) recordlengte bij een computer- 
systeem dat met fysieke records van 256 bytes werkt? 


(b) Welke voordelen hebben direct-toegankelijke bestanden ten 
opzichte van sequentiële? 


(a) 256 bytes 


(b) 1, Snelle bereikbaarheid van alle records, onafhankelijk van 
van hun plaats in het bestand. 
2. De inhoud van een record is gemakkelijk te veranderen 
(muteren). 


7.3 INITIALISEREN EN AFSLUITEN 


Voor het initialiseren (instellen) van een direct-toegankelijk bestand 
wordt dezelfde opdracht gebruikt als bij de sequentiële (schijf-) 
bestanden, namelijk de OPEN-opdracht. De daarbij toegekende buf- 
ferruimte dient zowel voor de in- als uitvoer. "FOR INPUT" en 
“FOR OUTPUT" moeten worden weggelaten . 


Een voorbeeld: 
120 OPEN "NAAMI" AS 3 


We gaan ervan uit dat u met één drive werkt. Werkt u met twee 
drives dan kunt u op drive B een bestand openen met 


OPEN "B:NAAMI" AS 3 


Dit geldt ook voor sequentiële bestanden. In dit hoofdstuk gaan we 
uit van één drive, namelijk drive A. De OPEN-opdracht is dan 
gewoon 


OPEN "NAAMI" AS 3 of OPEN "A:NAAMI" AS 3 


Met 3 geeft u het nummer van de buffer aan; NAAMI is de naam van 
het direct-toegankelijke bestand. Uiteraard kunnen in plaats van 
deze alfanumerieke of numerieke constanten ook variabelen voor de 
naam en het buffernummer gebruikt worden. 


Bij MSX BASIC is nog een gegeven mogelijk, namelijk de record- 
lengte. Zoals eerder gezegd is de standaardlengte 256 bytes. Wilt u 
liever met een andere lengte werken, bijvoorbeeld met 100 bytes, 
dan is dat eenvoudig te realiseren door deze waarde als constante 
of variabele na het buffernummer in de OPEN-opdracht op te nemen, 
dus: 


120 OPEN "NAAMI" AS 3 LEN = 100 
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Ook het afsluiten gebeurt op dezelfde wijze als bij sequentiële 
bestanden, namelijk met de CLOSE-opdracht. Een CLOSE zonder 
meer, bijvoorbeeld 


860 CLOSE 


sluit alle openstaande bestanden — ook sequentiële — af, Om indivi- 
duele bestanden te sluiten schrijven we na CLOSE het desbetreffen- 
de buffernummer. 


voorbeeld: 

860 CLOSE 3 

Toetsvragen 

Wat is het effect van de volgende opdrachten? 
(a) 310 OPEN “ADRES FOR INPUT AS 1 

(b) 310 OPEN “HULP" FOR OUTPUT AS 2 

(e) 310 OPEN "KLANT" AS 1 


(a) Een sequentieel schijfbestand met buffernummer 1 en naam 
ADRES wordt voor invoer geopend, 

(b) Een sequentieel schijfbestand met buffernummer 2 en naam 
HULP wordt voor uitvoer geopend. Eventueel eerder aanwezige 
gegevens in HULP worden vernietigd. 

(e) Een direct-toegankelijk bestand met buffernummer 1 en naam 
KLANT wordt voor in- en/of uitvoer geopend. 


7,4 BUFFERVELDEN 


Alvorens een record naar een direct-toegankelijk bestand te kunnen 
schrijven, dient dat record door de programmeur in de buffer te 
worden opgebouwd. Daartoe wordt de buffer (lees: record) met 
behulp van een zogenaamde FIELD-opdracht in velden onderver- 
deeld. De velden komen overeen met de gekozen recordindeling, en 
kunnen uitsluitend alfanumerieke gegevens* bevatten. Ze functione- 
ren daarbij als afzonderlijke buffervariabelen, waaraan met behulp 
van een speciale opdracht (alfanumerieke) toekenningen kunnen 
worden gedaan. Is de buffer op deze wijze eenmaal gevuld, dan kan 
de inhoud daarvan — dat wil zeggen het record — met een andere 
opdracht naar schijf worden geschreven. Daarover straks meer. 
Voorlopig nemen we aan de hand van een voorbeeld eerst de zoge- 
naamde FIELD-opdracht onder de loep. 


* Of getallen in een bijzondere, interne representatie. Hierop komen we later 
terug. 
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Stel dat we voor een direct-toegankelijk klantenbestand de volgende 
recordindeling hebben gekozen: 


woon- saldo 
datum naam adres postcode plaats rekening 
l=memen|=aanenn J=eanse-n |==en= |-=en [eenn [== f 


nt 6 7 36 37 56 57 63 64 83 84 90 91 256 


6 30 20 7 20 d 166 


In overeenstemming met deze recordindeling kiezen we als buffer- 
variabelen DATUMS, NAAMS, ADRES$, PCODES$, WOONPLS$ en 
SALDOS. Merk op dat deze namen voldoen aan de naamgevingcon- 
ventie voor alfanumerieke oftewel stringvariabelen. Ten opzichte 
van alfanumerieke variabelen is wel een belangrijk verschil: de bij- 
behorende geheugenlokatie bevindt zich namelijk niet in het ‘gewone! 
gegevensgebied van het interne geheugen, maar in het bufferdeel. 
Deze buffer moet nu zo worden ingericht dat de eerste zes bytes 
gereserveerd worden voor DATUMS, de volgende 30 bytes voor 
NAAMS, enz. 


Dit is te realiseren met de volgende FIELD-opdracht: 
130 FIELD 3, 6 AS DATUMS, 30 AS NAAMS, 20 AS ADRESS, 7 AS PCODES, 
20 AS WOONPLS, 7 AS SALDOS 


Hierin stelt 3 het buffernummer voor. FIELD en AS zijn sleutelwoor- 
den (keywords). 


Een bestand van vijf records, op deze wijze opgebouwd, zou als 
volgt kunnen worden voorgesteld: 


Lanasen n “ so 26 
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Toetsvraag 


Beantwoord aan de hand van het bovenstaande schema de volgende 
vragen. 


(a) Wat is de naam van de persoon in record 2? 

(b) Wat is zijn/haar adres? 

(e) Welk saldo heeft deze persoon? 

(d) Op welke datum vond de desbetreffende transactie plaats? 


(a) HORSSEN J J VAN 
(b) ANNE FRANKLN 323 
(e) 160000 

(d) 801205 


Naamkeuze van buffer variabelen 


We zagen reeds dat voor buffervariabelen dezelfde naamconventie 
wordt gebruikt als voor gewone alfanumerieke variabelen. Voor de 
duidelijkheid kozen we langere namen dan tot nu toe, maar essen- 
tieel is dit niet. We hadden bijvoorbeeld even goed de namen D$, N$, 
A$, P$, W$ en S$ kunnen kiezen. 


Om duidelijk tot uitdrukking te brengen dat een naam voor een buf- 
fervariabele wordt gebruikt, kunnen we daaraan de letter B of F 
toevoegen (Engels: field variable = buffervariabele), bijvoorbeeld 
DB$ of DF$. Aangezien bij langere namen vaak slechts de eerste 
twee tekens significant zijn, verdient het aanbeveling de B of de F 
vooraan te zetten, bijvoorbeeld BDATUMS of FDATUMS$, De namen 
DATUMBS$ en DATUMFS zouden anders door de computer als dezelfde 
variabelen worden opgevat. 


Bij een consequent doorvoeren van dergelijke conventies vervalt de 
noodzaak om buffervariabelen afzonderlijk in het programma te docu- 
menteren. 


Hoewel sommige stringoperaties zowel met buffer- als op gewone 
variabelen kunnen worden uitgevoerd, kan dezelfde naam niet bin- 
nen één programma voor zowel het ene als het andere type variabele 
worden gebruikt. Een constructie zoals: 


120 FIELD 1, 25 AS BS, 25 AS CF$ 
130 LET B$ = X$ 


zou dus resulteren in een foutmelding, omdat B$ in regel 120 als 
een buffervariabele is gedefinieerd en in regel 130 kennelijk als 
alfanumerieke variabele dienst moet doen. 
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Toetsvragen 


(a) Schrijf een FIELD-opdracht voor een direct-toegankelijk 
bestand met buffernummer 2 en de volgende recordindeling: 
1. een (alfanumeriek) catalogusnummer van 7 tekens (C$); 
2, een artikelbeschrijving van maximaal 60 tekens (B$); 
3. de prijs van het artikel als alfanumeriek gegeven van maxi- 

maal 6 tekens (P$). 

(b) Welke van de volgende FIELD-opdrachten zijn illegaal? 

Waarom? 


1. 240 FIELD 2, 5 AS NFS, 10 AS PFS, 
4 AS CFS, 4 AS BFS 


2. 540 FIELD 1, 85 AS AFS, 85 AS BFS, 
85 AS CF$, 85 AS DFS 


3. 320 FIELD 2, 25 AS GF$, 4 AS PF, 
16 AS NFS, 10 AS CF 


(a) 540 FIELD 2, 7 AS CS, 60 AS B5, 6 AS PS 
(eventueel B of F in de variabelenaam) 


(b) 2 (teveel tekens gedefinieerd voor een buffer van maximaal 
256 tekens) 
3 (2 variabelen zonder $-teken) 


7.5 EENVOUDIGE LEES- EN SCHRIJFOPERATIES 
MET STRINGS 


In deze paragraaf behandelen we de opdrachten nodig voor 


1. het toekennen van waarden aan buffervariabelen (LSET, RSET); 
2, het schrijven van een record naar schijf (PUT); 
3. het overbrengen van een record van schijf naar buffer (GET). 


We beperken ons hierbij (nog steeds) tot het lezen en schrijven van 
alfanumerieke gegevens. Voor numerieke gegevens zijn extra bewer- 
kingen nodig. Deze zullen later worden besproken. 


De algemene procedure voor het gebruik van direct-toegankelijke 
bestanden met alfanumerieke gegevens is: 

1. Open bestand(en). 

2. Richt buffer(s) in met FIELD-opdracht. 


3. Voer gegevens in (toekennen aan 'gewone' alfanumerieke varia- 
belen). 


4, Ken bij de uitvoer de alfanumerieke waarden toe aan buffervaria- 
belen met behulp van LSET en/of RSET. 
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5. Schrijf de buffer naar schijf met PUT (bij uitvoer), of breng een 
record van schijf naar buffer met GET (bij invoer). 


6. Voer de gewenste bewerkingen uit. 
7, Sluit alle bestanden met CLOSE. 


Schematisch kan een en ander door fig.7-1 worden voorgesteld. 


fig.7-1 Gang van zaken bij het gebruik van direct-toegankelijke 
bestanden met alfanumerieke variabelen. De cijfers 
komen overeen met de stappen van de eerder behandel 
de procedure. 


Voorbeeldprogramma 1 


We ontwikkelen nu volgens de aangegeven procedure een voorbeeld- 
programma, Doel van het programma is een direct-toegankelijk 
voorraadbestand van reserve-onderdelen op te bouwen. Voorlopig 
nemen we in dit bestand uitsluitend een alfanumeriek codenummer en 
een omschrijving van het onderdeel op. Later zullen we de aantallen 
toevoegen. De inleidende module is hieronder gedeeltelijk gegeven. 
U wordt gevraagd zelf de ontbrekende regels (nrs. 220 en 230) te 
leveren. 


(a) 100 REM _ONDERDELENVOORRAAD 
110 REM 


120 REM _VARIABELENLIJST 

130 REM = N$ = ONDERDEELNUMMER (6) 

140 REM = DS = OMSCHRIJVING (20) 

150 REM 

160 REM BESTAND 

170 REM 

180 REM = VOORRAAD (DIRECT TOEGANKELIJK) 
190 REM 

200 REM _INITIALISATIE VAN BESTAND 

210 REM 

220  sannsancsnancerereracdnnensner z REM *** OPEN BESTAND *** 


20  sarvenasarnarsranasneerereners : REM *** DEFINIEER VELDEN **+ 
240 REM 
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(a) 220 OPEN “VOORRAAD” AS 1 
230 FIELD 1, 6 AS NFS, 20 AS DFS 


Wat de gegevensinvoer betreft laten we de controles gemakshalve 
achterwege. We kunnen ons programma dan met de volgende op- 
drachten voortzetten: 


250 REM GEGEVENSINVOER 


260 REM 
270 LINE INPUT "NUMMER: (XXXXXX): "; NS 
280 LINE INPUT "OMSCHRIJVING : "; DS 
290 REM 


In de regels 270 en 280 hebben we gewone alfanumerieke variabelen 
gebruikt. De inhoud van die variabelen moet nu met LSET- en/of 
RSET-opdrachten aan de eerder gedefinieerde buffervariabelen wor- 
den toegekend. Alvorens dit uit te werken eerst iets naders over de 
werking van deze opdrachten. 


Zowel de LSET- als de RSET-opdracht hebben ten doel alfanumerie- 
ke waarden aan buffervariabelen toe te kennen. De vorm van beide 
opdrachten is identiek, en lijkt op de 'gewone!' alfanumerieke toe- 
kenning met LET: 


LSET buffervariabele = stringwaarde 
en: 

RSET buffervariabele = stringwaarde 
waarbij de stringwaarde in de vorm van een alfanumerieke constante 
of variabele weergegeven kan worden. 


Het verschil tussen beide opdrachten komt pas tot uitdrukking als 
de lengte van de toe te kennen stringwaarde kleiner is dan de 
beschikbare ruimte in de buffervariabele., Bij LSET wordt de string- 
waarde dan links aangesloten (Left SET), en bij RSET rechts 
(Right SET). De overblijvende ruimte wordt gevuld met spaties. 


voorbeeld 
Bij de opdracht 
LSET DFS$ = "SCHROEFBOUT M6" 


zou de desbetreffende string als volgt in de buffervariabele DFS 
terechtkomen : 
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Bij de opdracht 
RSET DF$ = "SCHROEFBOUT M6" 
staat de string rechts aangesloten in het bufferveld: 


ELL sthelelelelrjelofofr[ [le] 


Is de lengte van de toe te kennen stringwaarde groter dan de lengte 
van het desbetreffende bufferveld, dan wordt de string bij de TRS- 
80 eenvoudig afgekapt, en wel 'rechts' bij LSET en 'links' bij RSET. 
Bij de Exidy wordt de string in beide gevallen rechts afgekapt. 


Tot zover de werking van LSET en RSET. We kunnen nu de buffer- 
toekenningen in ons voorbeeldprogramma maken. Lever zelf de des- 
betreffende opdrachten in het volgende programmadeel. 


(a) 300 REM RECORD OPBOUWEN IN BUFFER 
305 REM 
310 tunsevisernssnossecsderesecrent REN tat TOEKENNING NS es 


320 evevevervonnsorenenenerceneevn? REM *** TOEKENNING DS *** 


(a) 310 LSET NFS = N$ 
320 LSET DFS = DS 


Op dit punt staan de gegevens klaar om naar schijf te worden over- 
gebracht, De PUT-opdracht, waarmee dit kan worden gerealiseerd, 
heeft de vorm: 


PUT buffernummer, recordnummer 


waarbij 'recordnummer' het volgnummer van het record op schijf 
aangeeft. Dankzij dit nummer kan het record naderhand bij het lezen 
worden teruggevonden. 


voorbeeld 

PUL L..R 
Deze opdracht heeft tot gevolg dat de inhoud van buffer 1 als 
recordnummer R naar schijf wordt geschreven. 


Eventueel kan het recordnummer, en de daaraan voorafgaande kom- 
ma, achterwege worden gelaten. In dat geval komt het record 
direct na het laatst geschreven record. 
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Met deze kennis gewapend kunt u het volgende programmadeel 
afmaken. 


(a) 340 REM SCHRIJF NAAR BESTAND 
345 REM 
350 veeenvereenensnvenervenenvnvnet REM *** ZONDER RECORDNUMMER +++ 


360 REM 


Het programma is nu bijna klaar. Uitvoering op dit moment zou ons 
in staat stellen de gegevens voor één record in te voeren, het 
record in de buffer samen te stellen en te schrijven naar schijf. 
Met het volgende (en laatste) programmafragment zorgen we voor 
het herhalen van deze acties, of voor het beëindigen van het pro- 
gramma als we klaar zijn met het opbouwen van het bestand. 


370 REM MEER GEGEVENS? 


375 REM 

380 LINE INPUT “MEER INVOER? (J/N): "; R$ 
390 IF LEFTS(RS,1) = "J" THEN 270 

400 REM 

410 REM SLUIT BESTANDEN EN STOP 

415 REM 

420 CLOSE 1 

999 END 


Het volledige programma ziet er als volgt uit: 


100 REM _ONDERDELENVOORRAAD 

110 REM 

120 REM _VARIABELENLIJST 

130 REM = NS = ONDERDEELNUMMER (6) 
140 REM = D$ = OMSCHRIJVING (20) 


150 REM 

160 REM BESTAND 

170 REM 

180 REM = VOORRAAD (DIRECT TOEGANKELIJK) 
190 REM 

200 REM INITIALISATIE VAN BESTAND 

210 REM 

220 OPEN "VOORRAAD" AS 1 

230 FIELD 1, 6 AS NFS, 20 AS DFS 

240 REM 

250 REM GEGEVENSINVOER 

260 REM 

270 LINE INPUT "NUMMER (OOXXX): *; NS 
280 LINE INPUT "OMSCHRIJVING : "; DS 
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300 REM RECORD OPBOUWEN IN BUFFER 


305 REM 

310 LSET NF$ = N$ 

320 LSET DFS = D$ 

330 REM 

340 REM SCHRIJF NAAR BESTAND 

345 REM 

350 PUT 1 

360 REM 

370 REM MEER GEGEVENS? 

375 REM 

380 LINE INPUT "MEER INVOER? (J/N): "; RS 
390 IF LEFTS(RS,1) = "J" THEN 270 
400 REM 

410 REM SLUIT BESTANDEN EN STOP 

415 REM 

420 CLOSE 1 

999 END 


Opmerkingen 


Voordat we verder gaan, enkele algemene opmerkingen. 


1, 


De inrichting van een buffer — en dus ook de interne record- 
structuur — kan worden veranderd door opnieuw een FIELD- 
opdracht uit te voeren (Engels: to refield). Dit maakt de pro- 
grammastructuur echter minder doorzichtig, en kan daarom beter 
worden vermeden. Wilt u toch 'refielden', zorg dan met behulp 
van REMARKs voor een goede documentatie. 


Geeft u bij een PUT-opdracht niet het eerstvolgende, maar een 
groter recordnummer aan, dan wordt die PUT toch uitgevoerd. 
De tussenliggende records zijn dan leeg, maar nemen toch schijf- 
ruimte in beslag. 


voorbeeld 
Is het hoogst gebruikte recordnummer 25 als de opdracht 
PUT 1, 226 


wordt uitgevoerd, dan worden 200 lege records tussen record 25 
en record 226 geplaatst. 


„ Het 'aan de beurt' zijnde record wordt, net als bij sequentiële 


bestanden, bijgehouden door een recordwijzer (Engels: record 
pointer). Na iedere PUT-opdracht geeft de recordwijzer het num- 
mer van het eerstvolgende record aan. Dit record is het zoge- 
naamde current record. 


Voorbeeldprogramma 2 


Stel dat we met het programma van voorbeeld 1 het volgende direct 
toegankelijke bestand hebben gemaakt: 
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In 
dit 


onderdeelnummer omschrijving 
112131 PRINTBORD 
341232 5 INCH FLOPPY 
341233 8 INCH FLOPPY 
871256 RS232 INTERFACE 
983476 5 INCH DISC DRIVE 


dit voorbeeld ontwikkelen we een programma om de inhoud van 
bestand zichtbaar te maken. In een later stadium kan dit pro- 


gramma eventueel in het eerste worden ingebouwd. 


Vooraf enkele opmerkingen over de GET-opdracht die, zoals eerder 
vermeld, gebruikt wordt om records van schijf naar buffer over te 
brengen (dat wil zeggen: kopiëren). 


1. 


We 


De GET-opdracht heeft dezelfde vorm als zijn tegenhanger, de 
PUT. De opdracht: 


270 GET 2 
heeft dus tot gevolg dat het 'aan de beurt' zijnde record (current 
record) wordt ingelezen in buffer 2. De recordwijzer wordt daar- 


na opgehoogd met 1, en geeft dan de positie aan van het eerst- 
volgende record. 


‚ Eventueel kan expliciet worden gespecificeerd welk record ingele- 


zen moet worden, bijvoorbeeld: 
270 GET 2, R 


Hierbij wordt de inhoud van recordnummer R naar buffer 2 
gekopieerd, en de recordwijzer met 1 verhoogd. 


„ De inhoud van buffervariabelen kan rechtstreeks in PRINT- 


opdrachten en dergelijke worden gebruikt. Het is hierbij niet 
nodig de inhoud van deze variabelen eerst aan gewone string- 
variabelen toe te kennen. 


beschikken nu over voldoende kennis om een begin te maken met 


ons voorbeeldprogramma. Het eerste deel staat hieronder. Aan u 
weer de vraag om de ontbrekende opdrachten te leveren. 


(a) 


100 REM 
110 REM 
120 REM _VARIABELENLIJST 

130 REM = NFS = ONDERDEELNUMMER (6) 


UITLEZEN VOORRAADBESTAND 


140 REM = DFS = OMSCHRIJVING (20) 

150 REM 

160 REM BESTANDEN 

170 REM = VOORRAAD (DIRECT TOEGANKELIJK) 
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190 REM _INITIALISATIE VAN BESTAND 
195 REM 
200 


: REM *** OPEN BESTAND *** 
z REM *** BUFFER INRICHTEN *** 


210 

220 REM 
230 PRINT "NUMMER", TAB(15), “OMSCHRIJVING” 
240 REM 


(a) 220 OPEN “VOORRAAD” AS 1 
230 FIELD 1, 6 AS NFS, 20 AS DFS 


Nu het inlezen van de records en het afdrukken van het overzicht. 


250 REM RECORDS INLEZEN EN AFDRUKKEN 


255 REM 

260 IF EOF(1) THEN 320 

270 GET 1 

280 PRINT NFS, TAB(15), DFS 
290 GOTO 260 

300 REM 

310 REM AFSLUITEN 

315 REM 

320 CLOSE 1 

330 REM 


De EOF-opdracht in regel 260 zorgt voor de foutmelding "Bad file 
mode", omdat deze opdracht slechts is toegestaan bij sequentiële 
bestanden. 


Een manier om het einde van een direct-toegankelijk bestand te 
bepalen is met behulp van de functie LOF (length of file). 

Zoals de naam doet vermoeden levert deze functie de lengte van het 
bestand in bytes. De vorm van de functie is 


LOF (bufnum) 


waarbij 'bufnum' het nummer van het desbetreffende bestand is, 
De aanroep LOF(1) levert dus als functiewaarde de lengte van het 
aan buffer 1 gekoppelde bestand. Delen we door de recordlengte, 
dan is het nummer van het laatste record bekend. 
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Toepassing hiervan in het bovenstaande voorbeeldprogramma met 
een FOR/NEXT-constructie geeft het volgende alternatief voor de 
regels 250 t/m 330: 


250 REM RECORDS INLEZEN EN AFDRUKKEN 
255 REM 
260 FOR X = 1 TO LOF(1)/256 


GET 1 
280 PRINT NFS, TAB(15), DFS 
290 NEXT X 

300 REM 

310 REM AFSLUITEN 

315 REM 

320 CLOSE 1 

330 REM 


In regel 270 wordt de gehele inhoud van het 'current' record naar 
de buffer gekopieerd, De daarop volgende regel (280) zorgt voor 
het afdrukken van de beide buffervelden op het scherm. Hierbij is 
voorafgaande toekenning aan 'gewone' stringvariabelen overbodig. 


Een overzicht van het geheel staat in 5 7,6. 


Voorbeeldprogramma 3 


Behalve bij het lezen kan de LOF-functie ook worden toegepast bij 
het uitbreiden van een direct-toegankelijk bestand. Een voorbeeld 
hiervan is: 


240 LET R = LOF(3)/256 + 1 
250 PUT 3, R 


In regel 240 wordt door middel van de uitdrukking LOF(3)/256 het num- 
mer bepaald van het laatste record. Dit nummer wordt verhoogd met 

1 en toegekend aan R. Deze variabele geeft dus het nummer aan van 
het eerstvolgend te schrijven record, en kan daarom als record- 
nummer worden gebruikt in de PUT-opdracht (regel 250). 


We passen de LOF-functie toe in het volgende voorbeeldprogramma. 
Het programma voegt nieuwe records toe aan een bestaand direct- 
toegankelijk bestand met telefoonnummers van klanten. Ook hier 
worden invoercontroles gemakshalve weggelaten. U wordt gevraagd 
de ontbrekende regels te leveren. 
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(a) 100 REM TOEVOEGEN AAN DIRECT TOEGANKELIJK BESTAND 
120 REM _VARIABELENLIJST 
130 REM = N$ = NUMMER VAN KLANT (5) 
140 REM = K$ = NAAM VAN KLANT (20) 
150 REM = T$ = TELEFOONNUMMER (10) 
160 REM = R _= RECORDTELLER 


180 REM BESTAND 
190 REM = TELNUM (DIRECT-TOEGANKEL IJK) 


210 REM _INITIALISATIE BESTAND 


220 OPEN “TELNUM" AS 1 LEN = 35 
230 FIELD 1, 5 AS NF$, 20 AS KFS, 10 AS TF$ 


250 REM BEPAAL PLAATS VAN LAATSTE RECORD 
260 LET R = LOF(1)/35 + 1 

280 REM GEGEVENSINVOER 

290 LINE INPUT "KLANTNUMMER 
310 LINE INPUT "NAAM VAN KLANT 


330 LINE INPUT "TELEFOONNUMMER 


360 REM: BRENG GEGEVENS NAAR BUFFER 


380 ë 


410 REM KOPIEER BUFFER NAAR SCHIJF 


440 REM EVENTUEEL HERHALEN 


450 LINE INPUT “MEER RECORDS? (J/N): “; D$ 
460 IF LEFTS(RS,1) = "J" THEN 290 


480 REM AFSLUITEN 


(a) 370 LSET NFS = NS 420 PUT 1, R 
380 LSET KFS = KS 
390 LSET TFS = T$ 490 CLOSE 1 
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Schrijf vervolgens een module om de inhoud van het gehele bestand 
— inclusief toegevoegde records — te lezen en op het scherm zicht- 
baar te maken. De module moet aan het einde van het voorgaande 
programma worden opgenomen, en begint met regelnummer 510. 


(a) 510 REM LEZEN/SCHRIJVEN VAN HET GEHELE BESTAND 
515 REM 


(a) 520 OPEN “TELNUM" AS 1 LEN = 35 
530 FIELD 1, 5 AS NFS, 20 AS KFS, 10 AS TFS 
540 REM 
550 FOR X = 1 TO LOF(1)/35 
560 GET 1 
570 PRINT NFS, KFS, TFS 
580 NEXT X 
590 REM 
600 CLOSE 1 
610 REM 


7.6 NUMERIEKE GEGEVENS 


Tot nu toe hebben we bij direct-toegankelijke bestanden uitsluitend 
met alfanumerieke gegevens gewerkt. In principe is deze gegevens- 
vorm de enige die bij direct-toegankelijke bestanden mogelijk is. 
Langs een omweg kunnen echter ook numerieke gegevens (getal 
waarden) worden opgeslagen en gelezen. Daartoe moeten ze eerst 
naar overeenkomstige alfanumerieke waarden worden geconverteerd. 


Er bestaan hiervoor drie functies: 


1. MKSS, bestemd voor het converteren van een enkele-precisie- 
waarde naar een string van vier bytes (make single precision). 


2. MKIS, bestemd voor het converteren van een integerwaarde (dat 
wil zeggen een geheel getal) naar een string van twee bytes 
(make integer). 

3. MKD$, bestemd voor het converteren van een dubbele-precisie- 
waarde naar een string van acht bytes (make double precision). 


Alle drie functies worden op dezelfde wijze gebruikt. 
Een voorbeeld: 


340 LSET DFS = MKSS(476.23) 
of: 
330 LET X = 476.23 


340 LSET DFS = MKSS(X) 
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De getalwaarde 476.23 (enkele precisie) wordt hier geconverteerd 
naar een string van vier bytes. 


De lengte van de resulterende string heeft uiteraard consequenties 
voor de inrichting van de buffer. In bovenstaand voorbeeld zou voor 
het bufferveld DF$ een lengte van vier bytes moeten worden gedefi- 
nieerd, dus met "4 AS DFS" als onderdeel van de FIELD-opdracht. 


Overigens: de geconverteerde waarde laat zich niet zonder meer als 
tekst op het scherm of op de printer afdrukken. De MK-functies 
leveren namelijk een interne getalrepresentatie die anders is dan 
een alfanumerieke representatie volgens (bijvoorbeeld) ASCII. 


Het (terug) converteren van getallen in alfanumerieke vorm naar 
hun oorspronkelijke numerieke vorm vindt ook plaats met behulp van 
speciale functies. Deze zijn: 


1. CVS, bestemd voor het converteren van een string van vier 
bytes naar enkele-precisie-vorm (convert to single precision). 

2. CVI, bestemd voor het converteren van een string van twee 
bytes naar integervorm (convert to integer). 


3. CVD, bestemd voor het converteren van een string van acht 
bytes naar dubbele-precisie-vorm (convert to double precision). 


Deze functies zijn dus tegenhangers van de functies MKSS$, MKI$ en 
MKDS, dat wil zeggen CVS doet precies het omgekeerde van MKSS$, 
CVI het omgekeerde van MKI$ en CVD het omgekeerde van MKDS. 


voorbeelden 
460 PRINT CVS(DFS$) 
310 LET D = CVS(DFS) 


De 'MK'-functies worden in het algemeen als voorbereiding op het 
wegschrijven van een record naar schijf toegepast, de 'CV'-functies 
daarentegen als voorbereiding op het gebruik in het programma van 
ingelezen getallen. Daarbij is het van groot belang voor hetzelfde 
gegeven steeds de overeenkomstige functies toe te passen. Voor een 
getal dat u met MKSS$ naar een string hebt geconverteerd gebruikt 
u dus CVS, enzovoort. Doet u dit niet dan is er een grote kans op 
een foutmelding of op onjuiste resultaten. 


Aanpassing voorbeeldprogramma 1 
We beschikken nu over voldoende kennis om het voorraadprogramma 


van $ 7,5 zo uit te breiden dat ook de hoeveelheden van de voorra- 
dige onderdelen in het bestand kunnen worden opgenomen. Ter her- 
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innering nog even een overzicht van het desbetreffende programma 
(voorbeeldprogramma 1, p.214/215): 


100 REM _ONDERDELENVOORRAAD 

110 REM 

120 REM _ VARIABELENLIJST 

130 REM = N$ = ONDERDEELNUMMER (6) 


140 REM = D$ = OMSCHRIJVING (20) 
150 REM 

160 REM BESTAND 

170 REM 

180 REM = VOORRAAD (DIRECT TOEGANKELIJK) 
190 REM 

200 REM _INITIALISATIE VAN BESTAND 
210 REM 

220 OPEN "VOORRAAD" AS 1 

230 FIELD 1, 6 AS NFS, 20 AS DFS 
240 REM 

250 REM GEGEVENSINVOER 

260 REM 

270 LINE INPUT "NUMMER (XXXXXX) 
280 LINE INPUT “OMSCHRIJVING 
290 REM 

300 REM RECORD OPBOUWEN IN BUFFER 
305 REM 

310 LSET NFS = N$ 

320 LSET DF$ = D$ 

330 REM 

340 REM SCHRIJF NAAR BESTAND 

345 REM 

350 PUT 1 

360 REM 

370 REM MEER GEGEVENS? 

375 REM 

380 LINE INPUT “MEER INVOER? (J/N): “; R$ 
390 IF LEFTS(RS,1) = “J" THEN 270 
400 REM 

410 REM SLUIT BESTANDEN EN STOP 

415 REM 

420 CLOSE 1 

999 END 


We voegen hieraan eerst een documentatieregel toe: 


145 REM = H_= HOEVEELHEID (ENKELE PRECISIE) 


Aan u de taak de FIELD-opdracht in regel 230 aan te passen: 


(a) 230 FIELD 1, 6 AS NFS, 20 AS DFS, 4 AS HFS 


We kunnen nu een regel toevoegen om de hoeveelheid in te lezen. 
Ook daarbij laten we voor het gemak invoercontrole achterwege. 


285 INPUT "HOEVEELHEID zt H 
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Geef nu zelf de opdracht om de waarde van H in het desbetreffende 
bufferveld op te nemen. 


(a) 325 LSET HFS = MKSS(H) 


Toetsvraag 


(a) Welke verandering moet worden aangebracht in de PUT- 
opdracht? 

(a) Geen. De bufferinhoud wordt in zijn geheel weggeschreven, 
inclusief het veld voor H. 


Aanpassing voorbeeldprogramma 2 


We passen nu ook het tweede voorbeeldprogramma aan. Dit zag er 
tot nu toe als volgt uit: 


100 REM UITLEZEN VOORRAADBESTAND 


120 REM _ VARIABELENLIJST 
130 REM = NFS = ONDERDEELNUMMER (6) 
140 REM = DF$ = OMSCHRIJVING (20) 


160 REM BESTANDEN 
170 REM __- VOORRAAD (DIRECT-TOEGANKEL IJK) 


180 REM 

190 REM _ INITIALISATIE VAN BESTAND 
195 REM 

200 OPEN "VOORRAAD" AS 1 

210 FIELD 1, 6 AS NFS, 20 AS DFS 
220 REM 

230 PRINT “NUMMER”, TAB(15), "OMSCHRIJVING" 
240 REM 

250 REM RECORDS INLEZEN EN AFDRUKKEN 
255 REM 

260 FOR X = 1 TO LOF(1)/256 

270 GET 1 

280 PRINT NFS, TAB(15), DFS 
290 NEXT X 

300 REM 

310 REM AFSLUITEN 

315 REM 

320 CLOSE 1 

330 REM 

999 END 


We voegen eerst de volgende regel toe: 


145 REM = HFS$ = HOEVEELHEID (ENKELE PRECISIE) 
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en veranderen regel 230 in : 
230 PRINT "NUMMER", TAB(15), "OMSCHRIJVING", TAB(40), "HOEVEELHEID" 


Aan u de eer om de FIELD-opdracht (regel 210) en de PRINT- 
opdracht (regel 280) aan te passen: 


(a) 210 .….....svansannnnverveevevenn 


(a) 210 FIELD 1, 6 AS NFS, 20 AS DF$, 4 AS HF$ 
280 PRINT NFS, DFS, CVS(HFS) 


N.B. Eventueel kan regel 280 in de volgende twee regels wor- 
den gesplitst: 


280 LET H = CVS(HFS$) 
285 PRINT NFS, DFS, H 


7.7 _UTILITY-PROGRAMMA'S 


In de voorgaande paragrafen zijn de principes van het werken met 
direct-toegankelijke bestanden behandeld. We ontwikkelen nu twee 
utility-programma's, één voor het kopiëren, en één voor het muteren 
van direct-toegankelijke bestanden. Daarmee kan enerzijds uw 
inzicht in deze bestandsvorm worden verdiept, en anderzijds een 
voorbeeld worden gegeven dat als basis voor eigen toepassingen kan 
dienen. 


Utility-programma 1: kopiëren 


Dit programma kopieert gegevens record voor record van het ene 
direct-toegankelijke bestand naar het andere. De gegevens kunnen 
uit tekst en/of getallen bestaan. 

De procedure is als volgt: 

1. Open het te kopiëren bestand (bestand 1). 

2. Open het bestand waarnaar moet worden gekopieerd (bestand 2). 


3. Leg met behulp van een FIELD-opdracht de bufferstructuur van 
bestand 1 vast. 


4. Leg met behulp van een tweede FIELD-opdracht de bufferstruc- 
tuur van bestand 2 vast. Gebruik daarbij andere variabelenamen, 
maar verander niet de gegevensstructuur. 
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5. Maak een FOR/NEXT-lus, met LOF als eindwaarde, waarin ach- 
tereenvolgens: 
a, een record van bestand 1 wordt ingelezen; 
b. de waarden in de buffervariabelen van bestand 1 worden toe- 
gekend aan de overeenkomstige buffervariabelen van 
bestand 2; 
e‚ de inhoud van buffer 2 naar bestand 2 wordt geschreven. 


6. Sluit beide bestanden. 


De inleidende module — met willekeurige variabelen — ziet er als 
volgt uit: 


100 REM UTILITY-PROGRAMMA VOOR KOPEREN 
110 REM 

120 REM VARIABELENLIJST 

130 REM - GFS = FFS (20) 


140 REM _- SF$ = RF$ (8) 
145 REM - QFS = PFS (4) 
150 REM = MFS = NF$ (30) 


M 
170 REM BESTANDEN 
180 REM = BESTI = TE KOPIEREN DIRECT-TOEGANKELIJK BESTAND 
190 REM _- BEST2 = KOPIE BEST! 


De relatie tussen de variabelen van de verschillende buffers is in 
de regels 130 t/m 150 weergegeven door overeenkomstige variabelen 
in dezelfde regel te noteren. Daarbij hoort de eerste buffervariabele 
(bijvoorbeeld GFS$) bij bestand 1, de tweede bij bestand 2 (bijvoor- 
beeld FFS$). Gezien de identieke bufferstructuur hebben overeen- 
komstige variabelen uiteraard steeds dezelfde lengte (bijvoorbeeld 
20 in het geval van GF$ en FF$). 


Opdracht 


(a) Maak aan de hand van de gegeven REMARKs het volgende 
initialisatiesegment af. 


210 EEN BESTANDSINITIALISATIE 


215 Ri 

217 MAXFILES = 2 

220 vaveaoneserecescennet REN Wit OPEN BESTAND | tte 

230 vonesvnennvennervent REM *** OPEN BESTAND 2 *** 

280 sasasserrverasesrse …: REM *** DEFINIEER STRUCTUUR VAN BUFFER 1 *** 
250 venvenerveereeereenet REM *** DEFINIEER STRUCTUUR VAN BUFFER 2 *** 
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(a) 220 
230 
240 
250 


OPEN “BESTI" AS 1 
OPEN “BEST2" AS 2 

FIELD 1, 20 AS GFS, 8 As 
FIELD 2, 20 AS FFS, 8 AS 


SFS, 4 AS QFS$, 30 AS MFS 
RFS, 4 AS PFS, 30 AS NFS 


In het volgende —en laatste — programmadeel worden gegevens van 

bestand 1 ingelezen, aan buffer 2 toegekend en vervolgens met een 
PUT-opdracht naar bestand 2 geschreven. Aan u weer de vraag om 
het segment af te maken. 


(a) 270 
275 
280 
290 
300 


310 


REM 
REM 


KOPIEER BESTAND 
FOR R = 1 TO LOF(1)/256 


CLOSE 1, 2 
PRINT “KOPIE KLAAR" 


REM **r LEES RECORD VAN BESTAND 1 * 
: REM *** BRENG GEGEVENS NAAR BUFFER 2 *** 


: REM *** SCHRIJF NAAR BESTAND 2 *** 


Het volledige programma ziet er als volgt uit: 


100 REM 
110 REM 


UTILITY-PROGRAMMA VOOR KOPIEREN 


VARIABELENLIJST 


= GF$ 
= SF$ 
= QF$ 
= MFS 


BESTANI 


= FFS (20) 
= RFS (8) 
= PFS (4) 
= NFS (30) 


DEN 


= BEST = TE KOPIEREN DIRECT-TOEGANKELIJK BESTAND 
= BEST2 = KOPIE BEST1 
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210 REM _BESTANDSINITIALISATIE 


215 REM 
217 MAXFILES = 2 

220 OPEN "BEST1" AS 1 

230 OPEN “BEST2" AS 2 

240 FIELD 1, 20 AS GFS, 8 AS SF$, 4 AS QF$, 30 AS MFS 
250 FIELD 2, 20 AS FFS, B AS RFS, 4 AS PFS, 30 AS NFS 
260 REM 

270 REM KOPIEER BESTAND 

275 REM 

280 FOR R_= 1 TO LOF(1)/256 
290 GET 1 

300 LSET FFS = GFS 

310 LSET RFS = SFS 

320 LSET PFS = QF$ 

330 LSET NFS = MFS 

340 PUT 2 

350 NEXT R 

355 REM 

360 CLOSE 1, 2 

370 PRINT "KOPIE KLAAR" 

380 REM 

999 END 

Toetsvraag 


(a) Geef de regelnummers van de programma-opdrachten die met 
de op p.224/225 genoemde procedurestappen overeenkomen. 


(a) 1. 220 5. 280/350 
2. 230 a. 290 
3. 240 b. 300 t/m 330 
4, 250 e. 340 
6. 360 


Utility-programma 2: muteren 


Het tweede utility-programma geeft de mogelijkheid gegevens in een 
direct-toegankelijk bestand aan de hand van een zogenaamd menu 
te veranderen (muteren). Met 'menu' bedoelen we een aantal keuze- 
mogelijkheden — zogenaamde opties — waaruit door het intoetsen van 
een getal kan worden geselecteerd. 


We gaan uit van het eerder behandelde voorraadbestand. Gemaks- 
halve nemen we de eerste versie daarvan, zoals geproduceerd door 
voorbeeldprogramma 1 van $ 7.5. De records bestaan daarbij uit 
slechts twee gegevens: een onderdeelnummer (6 tekens) en een 
omschrijving (maximaal 20 tekens). 


De bedoeling van het programma is de records van het bestand stuk 
voor stuk op het scherm zichtbaar te maken, en de gebruiker de 
volgende opties te bieden: 
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1. Veranderen van zowel onderdeelnummer als omschrijving. 
2. Veranderen van onderdeelnummer. 

3. 
4 
5 


Veranderen van omschrijving. 


„ Verwijderen van dit record. 
„ Geen wijziging van dit record. 


De procedure is als volgt: 


1. 
2. 
3. 


Open het bestand, 
Leg met behulp van een FIELD-opdracht de bufferstructuur vast, 


Kies een variabele (bijvoorbeeld R) om het recordnummer bij te 
houden, en geef deze variabele een beginwaarde van nul. 


Verhoog de waarde van R met 1. 


Vergelijk de waarde van R met het totaal aantal records, en 
bepaal of het laatste record ingelezen is. Zo ja, ga verder bij 
stap 19, 


Lees het record met nummer R. 
Maak het scherm 'schoon'. 
Druk de inhoud van de recordvelden af. 


Druk de 'menukaart' — dat wil zeggen de lijst van opties met 
bijbehorende keuzecijfers — op het scherm af. 


10, Laat de gebruiker een optie selecteren. 


11. Controleer of de aangegeven optie geldig is. 


12. Schrijf subroutine 1 (ten behoeve van het vervangen van het 


onderdeelnummer ): 

a. Voer nieuw onderdeelnummer in. 

b. Controleer op geldigheid. 

e. Ken onderdeelnummer toe aan overeenkomstige buffervaria- 
bele. 

d. RETURN. 


13. Schrijf subroutine 2 (ten behoeve van het vervangen van de 


omschrijving): 

a, Voer nieuwe omschrijving in. 

b. Controleer op geldigheid. 

e, Ken omschrijving toe aan overeenkomstige buffervariabele. 
d. RETURN. 


14, Bij keuze van optie 1: 


a. Ga naar subroutine 1. 

b. Ga naar subroutine 2, 

ec. Schrijf met PUT het record naar zijn oorspronkelijke plaats 
in het bestand (dus met recordnummer R) terug. 

d. Ga terug naar stap 4. 
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15. Bij keuze van optie 2: voer stappen 14a, c en d uit. 
16. Bij keuze van optie 3: voer stappen 14b, c en d uit. 


17. Bij keuze van optie 4: 
a. Vul alle buffervariabelen met lege strings. 
b. Voer stappen 14c en d uit. 


18. Bij keuze van optie 5: ga terug naar stap 4, 
19. Druk af "EINDE BESTAND" en sluit bestand. 


Het volledige programma — gemakshalve weer afgezien van invoer- 
controles — ziet er als volgt uit: 


1 Eri UTILITY-PROGRAMMA VOOR MUTEREN 
1 M 

120 REM _VARIABELENLIJST 

130 REM = NS, NFS = ONDERDEELNUMMER (6) 
140 REM _ - D$, DFS = OMSCHRIJVING (20) 


150 REM - R$ = RESPONSVARIABELE 
160 REM -R = RECORDNUMMER 
170 REM 
180 REM BESTAND 
190 REM __- VOORRAAD (DIRECT-TOEGANKELIJK) 
200 REM 
210 REM INITIALISATIES 
215 REM 
220 OPEN "VOORRAAD" AS 1 
230 FIELD 1, 6 AS NFS, 20 AS DFS 
240 REM 
250 LET R= 0 
260 LET R= Re 1 
270 IFR = LOF(1)/256 + 1 THEN 480 
280 GET 1, R 
290 REM 
300 CLS 
310 PRINT NFS, DFS 
320 PRINT “KEUZEMOGEL IJKHEDEN: * 
330 PRINT “1 = ALLE VELDEN VERANDEREN" 
340 PRINT “2 = ALLEEN NUMMER VERANDEREN" 
350 PRINT “3 « ALLEEN OMSCHRIJVING VERANDEREN" 
360 PRINT "& = RECORD GEHEEL VERWIJDEREN" 
370 PRINT “5 = NIET WIJZIGEN" 
380 REM 
390 LINE INPUT “GEEF KEUZEGETAL (1-5): *; RS 
400 IF VAL(RS) < 1 OR VAL(RS) > 5 THEN 
PRINT “GETAL TUSSEN 1 EN 5 AUB“ : GOTO 390 
410 IF VAL(RS) = 1 THEN 
GOSUB 520 :GOSUB 570 :PUT 1, R : GOTO 260 
420 IF VAL(RS) = 2 THEN 
GOSUB 520 :PUT 1, R z GOTO 260 
430 IF VAL(RS) = 3 THEN 
GOSUB 570 :PUT 1, R : GOTO 260 
440 IF VAL(RS) = 4 THEN 
LSET NES mn USE OPS = * :PUT 1, R : GOTO 260 
450 IF VAL(RS) = 5 THEN 26 
460 PRINT “GEHEEL GETAL Tussen 1EN 5 AUB“ _ : GOTO 390 


470 REM 
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480 PRINT "EINDE BESTAND" 
490 CLOSE 1 
500 GOTO 3999 


512 REM _SUBROUTINE 1 


520 LINE INPUT “NIEUW ONDERDEELNR: ts NS 

530 REM *** EVENTUELE INVOERCONTROLES HIER TUSSENVOEGEN EEn 
540 LSET NF$ = N$ 

550 RETURN 


562 REM SUBROUTINE 2 

570 LINE INPUT "NIEUWE OMSCHRIJVING:  “; D$ 

580 REM *** EVENTUELE INVOERCONTROLES HIER TÜSSENVOEGEN hai 
590 LSET DF$ = D$ 

600 RETURN 


999 END 


Toetsvraag 


(a) Geef de regelnummers van de programma-opdrachten die met de 
op p.228/229 genoemde procedurestappen overeenkomen. 


(a) 1. 220 13. a. 570 
2. 230 b. 580 
3. 250 e. 590 
4. 260 d. 600 
5. 270 14. a. 410 
6. 280 b. 410 
7. 300 e. 410 
8. 310 d. 410 
9. 320 t/m 370 15. 420 
10, 390 16. 430 
11. 400 17, a. 440 
12. a. 520 b. 440 

b. 530 18. 450 
e, 540 19, 480 
d. 550 


7.8 CONVERTEREN VAN SEQUENTIEEL NAAR 
DIRECT-TOEGANKELIJK 


Tot slot behandelen we nog een utility-programma voor het omzetten 
van sequentiële bestanden in direct-toegankelijke. 


We gaan daarbij uit van een eenvoudige administratieve toepassing, 
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waarbij records met de volgende indeling in een sequentieel bestand 
zijn ondergebracht: 


— klantnummer (5 alfanumerieke tekens) 

— telefoonnummer van klant (10 alfanumerieke tekens) 
— kredietcode (enkele-precisie-waarde van 1 t/m 10) 
= uitstaand saldo (enkele-precisie-waarde). 


De procedure voor het omzetten van zo'n bestand in een direct 
toegankelijk bestand met dezelfde recordindeling is: 

1. Open het séquentiële bestand (bestand 1) voor invoer. 

2. Open het direct-toegankelijke bestand (bestand 2). 


3. Leg met behulp van een FIELD-opdracht de bufferstructuur van 
bestand 2 vast. 


4. Controleer bestand 1 op EOF. Indien einde bestand, ga naar 
stap 9. 


5. Lees een record van bestand 1. 


6. Ken de ingelezen waarden toe aan de overeenkomstige buffer- 
variabelen van bestand 2 (denk daarbij aan de conversie van 
numerieke waarden met behulp van de MK-functies). 


71, Schrijf het record naar bestand 2. 
8. Ga terug naar stap 4. 
9, Sluit bestanden. 


Het eerste deel van het programma is hieronder weergegeven. 
U wordt gevraagd de ontbrekende opdrachten te geven. 


(a) 100 REM KOPIEREN SEQUENTIEEL NAAR DIRECT-TOEGANKEL IJK 


110 REM 

120 REM _VARIABELENLIJST 

130 REM -N$ = (TNUMMER (5) 
140 REM = T$ = TELEFOONNUMMER (10) 
150 REM = K_= KREDIETCODE 

160 REM = S= UITSTAAND SALDO 
170 REM 


180 REM BESTANDEN 

190 REM _- KLANT! (SEQUENTIEEL) 

200 REM = KLANT2 (DIRECT-TOEGANKEL IJK) 
220 REM _INITIALISATIES 


227 MAXFILES = 2 
: REM *** OPEN SEQUENTIEEL BESTAND *** 


REM *** OPEN D.T. BESTAND *** 


: REM *** DEFINIEER BUFFERSTRUCTUUR *** 
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(a) 230 OPEN "“KLANT1" FOR INPUT AS 1 
240 OPEN “KLANT2" AS 2 
250 FIELD 2, 5 AS NFS, 10 AS TF$, 4 AS KFS, 4 AS SFS 


In het volgende deel wordt gecontroleerd op 'einde bestand'. Bij het 
optreden van EOF moet worden gesprongen naar regel 420. Anders 
wordt het eerstvolgende record van het sequentiële bestand gelezen. 
Aan u wederom de vraag om de desbetreffende opdrachten te 
leveren. 


(a) 270 REM LEES SEQUENTIEEL BESTAND 
275 REM 
280 wensnenonenenevenencveener REM *** TEST OP EOF t** 


290 venanseensnansverservevent REM tet LEES RECORD *** 
300 REM 


(a) 280 IF EOF(1) THEN 420 
290 INPUT #1, NS, TS, K‚, S 


Met behulp van een GOTO maken we straks een lus waardoor het 
bovenstaande programmadeel herhaaldelijk wordt uitgevoerd totdat 
het einde van het bestand wordt bereikt. Ondertussen moet de 
inhoud van het ingelezen record worden overgebracht naar buffer 2. 
De eerste opdracht daarvoor is hieronder gegeven. Aan u de taak 
de andere toekenningsopdrachten te geven. 


(a) 310 REM KOPIEER GEGEVENS NAAR BUFFER 


315 REM 
320 LSET NFS = NS 
SO maeneerennnerennennen 
UE wen kaate 
80 mnatmwaarsonssanshivder 
360 REM 

(a) 330 LSET TF$ = TS 
340 LSET KFS = MKSS(K) 
350 LSET SF$ = MKSS(S) 


In het laatste deel van het programma 

= wordt de bufferinhoud naar het direct-toegankelijke bestand 
geschreven; 

= wordt met cen sprongopdracht naar regel 280 de lus gesloten; 

= worden beide bestanden gesloten. 


U wordt gevraagd de opdracht voor de eerstgenoemde actie te 
geven. 
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(a) 370 REM SCHRIJF NAAR DIRECT-TOEGANKELIJK BESTAND 


375 REM 
380 venwernueeenserenrervnnet REM *** SCHRIJF-OPDRACHT +++ 
390 GTO 280 
400 REM 
410 REM AFSLUITING 
415 REM 
420 CLOSE 1, 2 
430 PRINT “KOPIE KLAAR" 
440 REM 
993 END 
(a) 380 PUT 2 


Merk op dat we geen gebruik hebben gemaakt van de mogelijkheid 
het recordnummer expliciet in de PUT-opdracht aan te geven. Het 
bijhouden van de recordwijzer hebben we aan de computer overge- 
laten. 


Het volledige programma ziet er als volgt uit: 
100 REM KOPIEREN SEQUENTIEEL NAAR DIRECT-TOEGANKELIJK BESTAND 


120 REM _VARIABELENLIJST 

130 REM = NS = KLANTNUMMER (5) 
140 REM = T$ = TELEFOONNUMMER (10) 
150 REM = K _= KREDIETCODE 

160 REM = S= UITSTAAND SALDO 


180 REM BESTANDEN 
190 REM = KLANT1 (SEQUENTIEEL) 
200 REM = KLANT2 (DIRECT-TOEGANKEL IJK) 


210 REM 

220 REM _ INITIALISATIES 

225 REM 

227 MAXFILES = 2 

230 OPEN “KLANT1" FOR INPUT AS 1 
240 OPEN "KLANT2" AS 2 

250 FIELD 2, 5 AS NFS, 10 AS TFS, 4 AS KFS, 4 AS SF$ 
260 REM 

270 REM LEES SEQUENTIEEL BESTAND 
275 REM 

280 IF EOF(1) THEN 420 

290 INPUT #1, NS, T$, K‚ S 

300 REM 

310 REM KOPIEER GEGEVENS NAAR BUFFER 
315 REM 

320 LSET NFS = N$ 

330 LSET TF$ = T$ 

340 LSET KFS = MKSS(K 

350 LSET SF$ = MKS$(S, 

360 REM 

370 REM SCHRIJF NAAR DIRECT-TOEGANKELIJK BESTAND 
375 REM 

380 PUT 2 

390 GOTO 280 

400 REM 

410 REM AFSLUITING 

415 REM 

420 CLOSE 1, 2 

430 PRINT “KOPIE KLAAR" 

440 REM 


999 END 
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Toetsvraag 


(a) Geef de regelnummers van de programma-opdrachten die met de 
op p.231 genoemde procedurestappen overeenkomen. 


(a) 1. 230 6. 320 t/m 350 
2. 240 7. 380 
3. 250 8. 280 t/m 390 
4, 280 9. 420 
5. 290 


7.9 VERANDEREN VAN RECORDVOLGORDE 


De recordteller in GET- en PUT-opdrachten biedt de mogelijkheid 

op eenvoudige wijze records van de ene naar de andere plaats bin- 
nen een bestand te dirigeren. Daartoe wordt de gehele buffer als 

één gegeven gedefinieerd (bij de TRS-80 dus een buffervariabele 

van 256 tekens, bij de Exidy van 128 tekens). Met een GET wordt 

de buffer vanuit de gewenste recordpositie gevuld. Een PUT, met 

daarin de nieuwe recordpositie als tellerwaarde, zorgt vervolgens 

voor het overbrengen van het record naar de gewenste plaats. 


Schematisch kunnen we dit als volgt weergeven: 


FIELD 1, 256 AS F$ 
GET 1, oude plaats 
PUT 1, nieuwe plaats 


Komt bijvoorbeeld record 43 bij een bestandsmutatie vrij, dan kan 
het laatste record als volgt naar deze positie verhuizen: 
420 FIELD 1, 256 AS FS$ 


430 GET 1, LOF(1)/256 
440 PUT 1, 43 
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7.10 AFDRUKKEN 


Met het volgende programma kan de inhoud van een direct-toeganke- 
lijk bestand onafhankelijk van de oorspronkelijke bufferindeling 
record voor record op het computerscherm of een printer worden 
afgedrukt. 


10 LINE INPUT "NAAM VAN FILE *; AS 

20 OPEN AS AS 1 

30 FIELD 1, 256 AS B$ 

40 FOR R = 1 TO LOF(1)/256 

50 GET 1, R 

60 PRINT B$ : REM *** PRINTER: LPRINT I.P.V. PRINT *** 
70 NEXT R 

80 END 


Om het afdruktempo bij uitvoer op een scherm in de hand te houden 
kan de volgende opdracht worden toegevoegd: 


65 LINE INPUT **; C$ 


Het indrukken van een willekeurige toets leidt dan tot het afdruk- 
ken van de volgende regel. 


7.11 TOETSVRAGEN 


1. Schrijf een programma om voor een willekeurig bedrijf een 
direct-toegankelijk voorraadbestand te maken. Voor ieder artikel 
wordt één record gebruikt. De recordindeling en de gegevens- 
volgorde binnen het record is hieronder aangegeven. De getallen 
tussen haakjes verwijzen naar de maximale stringlengte. Voor 
getalwaarden kunnen gemakshalve enkele-precisie-grootheden 
worden gebruikt, ook als integer-grootheden meer voor de hand 
zouden liggen. 


N$ =artikel (4) 

D$ = omschrijving van produkt (20) 

L$ = leverancier (20) 

K _= kritische voorraad (voorraadniveau waarbij bijbesteld 
moet worden om tijdige levering te waarborgen) 


HI =te bestellen hoeveelheid 

H2 = momentele voorraad 

Pl = inkoopprijs per verpakkingseenheid 
P2 = verkoopprijs per verpakkingseenheid 


De inleidende module is: 
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100 REM OPGAVE 1, HOOFDSTUK 7 
110 REM 


120 REM _VARIABELENLIJST 

130 REM = NS, NBS = ARTIKELNUMMER (4) 
140 REM = X$, XBS = OMSCHRIJVING ARTIKEL (20) 
150 REM = L$, LB$ = LEVERANCIER (20) 
160 REM = K , KBS = KRITISCHE VOORRAAD 
170 REM = B , BBS = BESTELHOEVEELHEID 
180 REM = M , MBS = MOMENTELE VOORRAAD 
190 REM = 1 , IB$ = INKOOPPRIJS 

200 REM = V , VBS = VERKOOPPRIJS 

210 REM _- R$ = RESPONSVARIABELE 
220 REM 


230 REM BESTAND 
240 REM = ARTBES (DIRECT-TOEGANKELIJK) 
250 REM 


2. Maak met behulp van het programma van opgave 1 een direct 
toegankelijk bestand van 20 records. Verzin daarbij uw eigen 
gegevens. Van dit bestand zal in hoofdstuk 8 gebruik worden 
gemaakt. 


3. In $ 7,8 werd het omzetten van een sequentieel in een direct- 
toegankelijk bestand behandeld. Schrijf nu een programma dat 
het direct-toegankelijke bestand kopieert. Het resulterende 
bestand dient eveneens direct-toegankelijk te zijn. 

De inleidende module is: 


100 REM OPGAVE 3, HOOFDSTUK 7 
120 REM KOPIEREN DIRECT-TOEGANKELIJK BESTAND 


140 REM _VARIABELENLIJST 

150 REM _ - NBS, NCS = KLANTNUMMER (5) 
160 REM - TBS, TCS « TELEFOONNUMMER (10) 
170 REM _- KB$, KF$ = KREDIETCODE 

180 REM _- SBS, SFS = UITSTAAND SALDO 


200 REM BESTANDEN 
210 REM _- KLANT! = ORIGINEEL (DIRECT-TOEGANKELIJK) 
220 REM = KLANT2 = KOPIE (DIRECT-TOEGANKEL IJK) 


4. Schrijf aansluitend op het programma van opgave 3 een program- 
ma om ter controle beurtelings een record van het oorspronke- 
lijke bestand en zijn kopie zichtbaar te maken. Na het verschij- 
nen van record 1 van het ene bestand moet record 1 van het 
andere bestand verschijnen, daarna record 2 van beide bestan- 
den, enz., totdat het einde van de bestanden wordt bereikt. 
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7.12 ANTWOORDEN OP DE TOETSVRAGEN 


1. 


100 REM 
110 REM 
120 REM 
130 REM 
140 REM 
150 REM 


OPGAVE 1, HOOFDSTUK 7 


VARIABELENLIJST 
= NS, NBS = ARTIKELNUMMER (4) 


= XS, XBS = OMSCHRIJVING ARTIKEL (20) 
- LS, LBS = LEVERANCIER (20) 

- K , KBS = KRITISCHE VOORRAAD 

- B , BBS = BESTELKOEVEELHEID 

- M „ MBS = MOMENTELE VOORRAAD 

- 1 , 185 = INKOOPPRIJS 

= V_, VBS = VERKOOPPRIJS 

R$ = RESPONSVARIABELE 

BESTAN 


D 
= ARTBES (DIRECT-TOEGANKELIJK) 
INITIALISATIES 
OPEN “ARTBES" AS 1 
FIELD 1, : AS NBS, 20 AS XBS, 20 AS LBS, 4 AS KBS, 4 AS BBS, 
AS MBS, 4 AS IBS, 4 AS VBS 


GEGEVENSINVOERCONTROLE GEMAKSHALVE WEGGELATEN 


LINE INPUT “ARTIKELNUMMER (4 CIJFERS) s NS 
LINE INPUT "OMSCHRIJVING (MAX. 20 TEKENS) : "; X$ 
LINE INPUT "LEVERANCIER (MAX. 20 TEKENS) : “; L$ 
INPUT “KRITISCHE VOORRAAD Kk 
INPUT “BESTELHOEVEELHEID B 
INPUT “MOMENTELE VOORRAAD | 
INPUT “INKOOPPRIJS ie 
INPUT “VERKOOPPRIJS zv 
BRENG WAARDEN NAAR BUFFER 

LSET NBS = N$ 

LSET XB$ = X$ 

LSET LB$ = L$ 


LSET KBS = MKSS(K) 
LSET BB$ = MKS$ B) 
LSET MBS = MKSS(M 
LSET 1BS « MKSS(I) 
LSET VBS = MKSS(V) 


PUT 1 

LINE INPUT “MEER GEGEVENS? (J/N) 1 “R$ 
IF LEFTS(RS,1) = "J" THEN CLS : GOTO 310 
AFSLUITING 


CLOSE 
PRINT “BESTAND GESLOTEN" 
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REM 
REM 


REM 


OPGAVE 3, HOOFDSTUK 7 

KOPIEREN DIRECT-TOEGANKELIJK BESTAND 
VARIABELENLIJST 

by = JUMMER (5) 

= TELEFOONNUMMER (10) 

= KBS, KFS = KREDIETCODE 

= SB$, SFS = UITSTAAND SALDO 

BESTANDEN 

= KLANT! = ORIGINEEL (DIRECT-TOEGANKEL IJK) 
= KLANT2 = KOPIE (DIRECT-TOEGANKEL IJK) 
INITIALISATIES 
MAXFILES = 


OPEN "KLANT1" AS 1 
OPEN “KLANT2" AS 2 


FIELD 1, 5 AS NBS, 10 AS TBS, 4 AS KBS, 4 AS SB$ 
FIELD 2, 5 AS NCS, 10 AS TC$, 4 AS KFS, 4 AS SF$ 


KOPIEER RECORDS 
FOR X = d TO LOF(1)/256 
GET 


Eer NC$ = NBS 
LSET TC$ = TB$ 
LSET KF$ = KBS 
LSET SF$ = SB$ 
PUT 2 

NEXT X 


CLOSE 
PRINT TiESTANOEN GESLOTEN. KOPIE KLAAR" 
END 


OPGAVE 4, HOOFDSTUK 7 
AFDRUKKEN DIRECT-TOEGANKELIJK BESTAND 


VARIABELENL IJST 

= NBS, NCS = KLANTNUMMER (5) 

= TB$, TCS = TELEFOONNUMMER (10) 
= KB$, KFS = KREDIETCODE 

= SBS, SFS = UITSTAAND SALDO 


BESTANDEN 
= KLANT! = ORIGINEEL (DIRECT-TOEGANKELIJK) 
= KLANT2 = KOPIE (DIRECT-TOEGANKEL IJK) 


INITIALISATIES 
MAXFILES = 


OPEN "KLANT1" AS 1 
OPEN "KLANT2" AS 2 


FIELD 1, 5 AS NBS, 10 AS TBS, 4 AS KBS, 4 AS SB$ 
FIELD 2, 5 AS NCS, 10 AS TCS, 4 AS KFS, 4 AS SF$ 
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300 REM AFDRUKKEN OP SCHERM 


310 REM 

320 FOR X = 1 TO LOF(1)/256 

330 PRINT “BESTAND 1", “BESTAND 2” 
340 GET 1 : GET 2 

350 PRINT NBS, NCS 

360 PRINT TBS, TC$ 

370 PRINT CVS(KBS), CVS(KFS$) 

380 PRINT CVS(SBS), CVS(SFS) 

390 LINE INPUT “GEEF ENTER VOOR VOLGEND RECORD “; RS 
400 NEXT X 

410 REM 

420 


CLOSE 
430 PRINT: PRINT "EINDE GEGEVENS. BESTANDEN GESLOTEN" 
999 END 


8 TOEPASSINGEN DIRECT- 
TOEGANKELIJKE BESTANDEN 


8.0 DOELSTELLINGEN 


In dit hoofdstuk komen min of meer geavanceerde technieken ter 
sprake voor het werken met direct-toegankelijke bestanden, Na 
bestudering ervan moet u de behandelde technieken zelfstandig 
kunnen toepassen in eigen programma's. Daarbij gaat het vooral 
om het gebruik van sequentiële 'pointer'-bestanden als index voor 
direct-toegankelijke bestanden. De desbetreffende technieken wor- 
den behandeld aan de hand van een tweetal toepassingen. 


8.1 VOORRAADBEHEER 


Als eerste behandelen we een programma voor voorraadbeheer, 
zoals dat bijvoorbeeld in een magazijn van een winkelbedrijf zou 
kunnen plaatsvinden. Daarbij wordt behalve een direct-toegankelijk 
ook een sequentieel bestand gebruikt. Het sequentiële bestand 
functioneert daarbij als 'wijzer' oftewel 'pointer' (Engels: to point 
= (aan)wijzen) naar de records van het direct-toegankelijke 
bestand. Hoewel we uitgaan van voorraadbeheer gelden de 
bestandstechnieken uiteraard evengoed voor andere toepassingen, 
bijvoorbeeld op het gebied van verzendlijsten (mailing lists) of het 
beheren van klantenkredieten. 


In deze toepassing worden de eigenlijke voorraadgegevens opgesla- 
gen in één of meer direct-toegankelijke bestanden. Voor ieder artikel 
of produkt in zo'n bestand wordt een afzonderlijk record vastgelegd, 
en wel met de volgende indeling : 
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P$ = produktnummer (4) 

beschrijving (20) 

everancier (20) 

kritische voorraad 

bestelhoeveelheid 

momentele voorraad 
inkoopprijs/kostprijs 

V _= verkoopprijs per verpakkingseenheid 


Stel nu dat de in- en verkoopprijs van een produkt moet worden 
veranderd. In dat geval dient eerst het desbetreffende record te 
worden opgespoord. Bij grotere bestanden zal dit gemiddeld relatief 
veel tijd vergen. Het is dan efficiënter de nummers van de records 
in het direct-toegankelijk bestand samen met een identificatiegege- 
ven — in dit geval het produktnummer — in een afzonderlijk (sequen- 
tieel) bestand op te slaan. Door eerst in zo'n betrekkelijk eenvoudig 
bestand het produktnummer op te zoeken, kan de plaats van het 
direct-toegankelijke record sneller worden gevonden. 


We nemen hiertoe voorlopig de volgende stappen: 


1. Voer het produktnummer en de nieuwe prijsgegevens in. 


2. Zoek in het sequentiële bestand het ingevoerde produktnummer, 
en bepaal het nummer (oftewel adres) van het overeenkomstige 
record in het direct-toegankelijke bestand. 


3. Lees het in (2) bedoelde record. 

4, Verander de inhoud van de desbetreffende velden (C en V). 
We 'vertaler' deze eerste stappen nu in een concreet programma- 
deel: 

100 REM TOEPASSING 1: VOORRAADBEHEER 

104 REM MET DIT PROGRAMMA KAN HET VELD VOOR IN- EN VERKOOPPRIJS 


106 REM VAN EEN WILLEKEURIG RECORD IN EEN DIRECT-TOEGANKEL IJK 
108 REM WORDEN VERANDERD 


110 REM 

120 REM _VARIABELENLIJST 

130 REM = R$ _= TE WIJZIGEN RECORD (= PRODUKTNUMMER SEQ. BESTAND) 
140 REM = P1$ = PRODUKTNUMMER (4) (IN SEQ. BESTAND) 
150 REM = R_= RECORDNUMMER (IN SEQ. BESTAND) 
160 REM = P$ = PRODUKTNUMMER (4) 

170 REM =B$ = BESCHRIJVING (20) 

180 REM - L$ = LEVERANCIER (20) 

190 REM = K__= KRITISCHE VOORRAAD 

200 REM = H__= BESTELHOEVEELHEID 

210 REM = M= MOMENTELE VOORRAAD 

220 REM =C _= INKOOPPRIJS 

230 REM = V__= VERKOOPPRIJS PER VERPAKKINGSEENHEID 
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250 REM BESTANDEN 


260 REM = POINT = SEQ. "POINTER" BESTAND 

SZ Re = VOORRAAD = DIRECT TOEG. VOORRAADBESTAND 
EM 

290 REM _INITIALISATIE VAN BESTANDEN 

300 REM 

310 OPEN "POINT" FOR INPUT AS 1 

320 OPEN "VOORRAAD" AS 2 

330 FIELD 2, 4 AS PF$, 20 AS BFS, 20 AS LFS, 4 AS KFS, 4 AS HFS, 4 AS MFS, 

4 AS CFS, 4 AS VFS 

340 REM 

350 REM INVOER WIJZIGEN (ZONDER CONTROLES) 

355 REM 

360 CLS 

370 LINE INPUT "PRODUKTNUMMER : “R$ 

380 REM 

390 INPUT “NIEUWE INKOOPPRIJS : ";C 

400 REM 

410 INPUT “NIEUWE VERKOOPPRIJS : "; V 

420 REM 


Vervolgens doorzoeken we het sequentiële bestand om de plaats van 
het te muteren record in het direct-toegankelijke bestand te bepalen, 
Hoewel controles bij de invoer van de nieuwe gegevens gemakshalve 
achterwege zijn gelaten, is het wel van belang rekening te houden 
met de invoer van niet-bestaande recordnummers. Daarvoor dienen 
de opdrachten 680 t/m 710 in het volgende fragment. U wordt 
gevraagd zelf de ontbrekende opdrachten te leveren. 


(a) 430 Ben DOORZOEK POINTER-BESTAND 


440 REM 

450 veenveneneneneenvenseeroet REM *** BĲ EOF NAAR 690 *** 

460 vovveennsvenenensveernnnet REM **t LEES SEQ, RECORD *** 

470 aneververveenerevenrveenrt REM *** VERGELIJK INGEVOERD NR. MET NR. 
IN BESTAND *** 

480 REM 

670 REM 

680 REM OPVANG NIET-VOORKOMEND RECORDNUMMER 

685 REM 

690 PRINT “OPGEGEVEN PRODUKTNUMMER KOMT NIET IN BESTAND VOOR" 

700 PRINT “CONTROLEER EN VOER OPNIEUW IN“ 

710 GOTO 610 

720 REM 


(b) Welke variabele bevat het nummer van het gezochte record in 
het direct-toegankelijke bestand? 
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(a) 450 IF EOF(1) THEN 690 
460 INPUT #1, PIS, R 
470 IF PIS > RS THEN 450 
B) R 


Alvorens de inhoud van het direct-toegankelijke record naar de buf- 
fer te kopiëren controleren we met LOF of het gevonden recordnum- 
mer inderdaad in het direct-toegankelijke bestand bestaat. Zo niet, 
dan genereren we een foutmelding. 


(a) EE pe LEES RECORD VAN DIRECT-TOEGANKELIJK BESTAND 
500 aannverovorsnerenenversrel REM *** NAAR Ze ALS RECORD NIET 
510  varsseversasrnserensavsen : REM *ee LES RECORD *** 
520 REM 


730 PRINT “FOUT RECORDNUMMER IN POINTER BESTAND" 
740 GOTO 610 


(a) 500 IF R > LOF(2)/256 THEN 730 


510 GET 2, R 


We converteren de prijsgegevens vervolgens naar stringvariabelen, 
en plaatsen ze in de buffer. Aan u weer de taak het segment af te 
maken. 


(a) 530 REM VERANDER DE NODIGE BUFFERVELDEN 


535 REM 
540 7 REM *** KOPIEER INKOOPPRIJS NAAR 
BUFFER «e+ 
550 z REM see KOPIEER VERKOOPPRIJS NAAR 
560 REM 
570 REM SCHRIJF BUFFER NAAR BESTAND 
575 REM 
580 whore ineke z REM *** BUFFER + D.T. BESTAND *** 
590 REM 
(a) 540 LSET CFS = MKSS(C) 
550 LSET VFS = MKSS(V) 
580 PUT 2, R 


Merk op dat in de PUT-opdracht (regel 580) het recordnummer R 
gespecificeerd is. Zonder deze specificatie zou het eerstvolgende 
recordnummer worden overschreven. 
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Het resterende deel van het programma ziet er als volgt uit: 


600 REM HERHALEN OF AFSLUITEN 


605 REM 
610 LINE INPUT “MEER GEGEVENS? (J/N): “; R$ 
620 IF LEFTS(RS,1) <> "J" THEN 650 
630 CLOSE 1: OPEN "POINT" FOR INPUT AS 1: GOTO 360 
640 REM 
750 CLOSE 1, 2 
660 STOP 
670 REM 
H zie boven voor 
H regels 680 t/m 750 
750 
999 END 
Toetsvraag 


(a) Waarom moet het sequentiële bestand gesloten en opnieuw 
geopend worden (regel 630)? 

(a) De interne recordwijzer van het sequentiële bestand moet 
opnieuw op het begin van het bestand worden gepositioneerd. 


Tot zover het wijzigen van de prijsgegevens. Het programma zou 
kunnen worden uitgebreid door de mogelijkheid te bieden ook andere 
recordvelden te wijzigen, bijvoorbeeld leverancier of kritische voor- 
raad. Ook de mogelijkheid om records toe te voegen of te verwijde- 
ren zou zinvol zijn. We laten dit aan de geïnteresseerde lezer over! 


8.2 PERSOONLIJKE FINANCIËLE ADMINISTRATIE 


Het tweede programma zou een onderdeel kunnen vormen van een 
uitgebreid software-pakket voor een persoonlijk financieel admini- 
stratiesysteem. De bedoeling van deze toepassing is het verwerken 
van een zogenaamd transactiebestand te laten zien, en te demonstre- 
ren hoe boekingsnummers kunnen worden gebruikt om direct 
toegankelijke bestanden en records aan te wijzen. 


De eerste stap is beslissen welke financiële posten u met de compu- 
ter wilt bijhouden. Leg vervolgens voor ieder van deze posten een 
afzonderlijk boekingsnummer (of kostensoort) vast. Ga daarbij uit 
van verschillende boekingsnummers voor belastbare en niet- 
belastbare posten, Daardoor kunnen de gegevens ook worden 
gebruikt voor het invullen van het belastingbiljet. 


Voor deze toepassing hebben we de volgende boekingsnummers vast- 
gelegd: 
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1001 
1002 
1003 
1004 
1005 
1006 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 


belastbare inkomsten uit arbeid 
belastbare inkomsten uit rente 
belastbare inkomsten uit effecten 
ander belastbaar inkomen 
niet-belastbaar inkomen 

diverse niet-belastbare bedragen 
levensmiddelen 

huishoudelijke artikelen anders dan levensmiddelen 
hypotheek 

gas, water en elektriciteit 
gemeentelijke belastingen 
telefoon 

opstalverzekering 
onroerendgoedbelasting 

meubilair 

vaste auto-onkosten 

benzine en smeermiddelen 
reparatiekosten auto 

parkeren /parkeerboetes 
autoverzekering 

kleding vader 

kleding moeder 

kleding jongen(s) 

kleding meisje(s) 

onderhoud kleding /stomerij 
contributies/toegangsbewijzen sport 
sportartikelen 

tijdschriften en boeken 

bioscoop /toneel /concert /opera 
alcoholische dranken 

restaurant 

vakantie-uitgaven 

porti 

schoolgeld 

boekhouder 

levensverzekering 
ziektekostenverzekering 
tandartskostenverzekering 

zelf te dragen medische onkosten 
medicijnen 

cursussen en opleidingen 
overige studiekosten 

BTW 

eontributies 

inleg spaarrekeningen 
investeringen 
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Voor ieder boekingsnummer wordt een afzonderlijk record bijgehou- 
den. 


Het boekingsnummer heeft een belangrijk doel. Het is namelijk zo 
gekozen dat het eerste cijfer het nummer aangeeft van het (direct- 
toegankelijke) bestand waarin de bijbehorende gegevens zijn onder- 
gebracht. Al deze bestanden hebben de naam BUDGET gevolgd door 
het desbetreffende cijfer. Uit de lijst van boekingsnummers blijkt 
dus dat er in deze toepassing sprake is van drie bestanden. 


Toetsvraag 
(a) Welk bestand bevat de gegevens over cursussen en opleiding? 


(a) BUDGET3 


De laatste drie cijfers van het boekingsnummer geven het volgnum- 
mer aan van het record dat voor dat boekingsnummer wordt gebruikt. 
Het record met gegevens over investeringen bevindt zich dus in 
BUDGET3, en heeft het volgnummer 12, 


Gemakshalve worden de boekingsnummers steeds als een stringwaarde 
ingevoerd. Met behulp van de functies LEFT$ en RIGHT$ kunnen het 
bestandsnummer en het recordnummer betrekkelijk eenvoudig 
gescheiden worden. 


Het volgende schema geeft de indeling van de records, en de naam 
en lengte van de bijbehorende buffervariabelen : 


N$ = BOEKINGSNUMMER (4) 

AF$ = BESCHRIJVING (20) 

BF$ = BEGROTINGSBEDRAG (JAARBASIS) (4) 

SF$ = SALDO (INKOMSTEN/UITGAVEN V.A. 1 JANUARI) (4) 


Iedere maand wordt een nieuw sequentieel bestand gemaakt. Voor de 
maand januari heeft dit bestand de naam MAAND1, voor februari de 
naam MAAND2, enz. In zo'n bestand worden de gegevens over alle 
inkomsten en uitgaven voor die maand — de zogenaamde transacties — 
bijgehouden. We noemen zo'n bestand dan ook een transactiebestand. 
Aan het einde van iedere maand wordt het transactiebestand ver- 
werkt en worden de direct-toegankelijke bestanden bijgewerkt. 


De recordindeling voor zo'n transactiebestand met de bijbehorende 
buffervariabelen is als volgt*: 


* Terwille van de algemeenheid, en om een enigszins realistisch beeld te geven, 
zijn in dit bestand meer gegevenssoorten gedefinieerd dan we voor onze toe- 
passing nodig hebben. 
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= NUMMER BETAALKAART/KASBEWIJS 
DATUM (6) 

NAAM BEGUNSTIGDE/INKOMSTENBRON (20) 
N$ = BOEKINGSNUMMER (4) 

G = BEDRAG IN HFL 


We zetten de periodiek te ondernemen acties nog even op een rijtje: 


1. Aan het begin van ieder jaar worden direct-toegankelijke bestan- 
den gemaakt (BUDGETm) waarin de beginstatus van alle boekin- 
gen wordt opgeslagen. Deze beginstatus omvat o.a. een begro- 
tingsbedrag (op jaarbasis) voor de desbetreffende rekening. 


2. ledere maand wordt een sequentieel bestand gemaakt (MAANDn) 
waarin alle inkomsten en uitgaven in die maand worden opgesla- 
gen. 


3, ledere maand worden de direct-toegankelijke bestanden bijge- 
werkt aan de hand van het overeenkomstige sequentiële bestand 
voor die maand. 


4. Op elk gewenst tijdstip kan een overzicht worden gemaakt van de 
BUDGET-bestanden . 


We zijn nu zo ver dat we de inleidende module kunnen schrijven. 
Deze ziet er als volgt uit: 


100 REM PERSOONLIJKE FINANCIELE ADMINISTRATIE 
110 REM _ TOEPASSING SEQUENTIEEL/DIRECT-TOEGANKELIJK BESTAND 
120 REM 
130 REM VARIABELENLIJST 
140 REM - NS = NIS = BOEKINGSNUMMER (4) 
150 REM - BS = BESCHRIJVING (20) 

DATUM (6 


160 REM -D$ = (6) 

170 REM = X$ _= NAAM BEGUNSTIGDE/ INKOMSTENBRON (20) 
180 REM _- MS = GESELECTEERDE MAAND (20) 

190 REM = K_= NUMMER BETAALKAART/KASBEWIJS 
200 REM _- G = BEDRAG BETAALKAART/KASBEWIJS 
210 REM _- B = BEGROTINGSBEDRAG 

220 REM _-S = SALDO (4) 

230 REM _- F$ = NAAM SEQUENTIEEL BESTAND 
240 REM = F1$ = F2$ = NAAM D.T. BESTAND 

250 REM = R__= RECORDNUMMER 

260 REM 


270 REM BESTANDEN 
280 REM = MAAND# = SEQ. TRANSACTIEBESTAND (# = 1..12) 
290 REM = BUDGET# = D.T. BESTAND (# = VOLGNUMMER) 


300 REM 

310 REM _INITIALISATIE BESTANDEN 

320 REM 

325 MAXFILES = 2 

330 LINE INPUT "NUMMER TE VERWERKEN MAAND: "; M$ 
340 REM 

350 IF F$ = "MAAND" + M$ 

360 REM 

370 OPEN F$ FOR INPUT AS 1 


380 REM _D.T. BESTAND EN BUFFER WORDEN VOOR IEDERE TRANSACTIE GEOPEND/ INGERICHT 
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Toetsvraag 


(a) Welke waarde krijgt F$ als de gebruiker naar aanleiding van 
opdracht 330 de waarde 3 invoert? 


N.B.: Merk op dat de ingevoerde waarde aan een stringvariabele 
wordt toegekend. Toekenning aan een numerieke variabele, 
met daarna conversie naar een stringwaarde met behulp van 
de STRS-functie zou resulteren in MAAND 3 (STRS geeft een 
voorafgaande spatie als de getalwaarde positief is). Het pro- 
gramma zou dit bestand niet kunnen vinden. 


We gaan verder met het verwerken van de transacties. 

In het volgende fragment zorgt regel 430 voor de gebruikelijke con- 
trole op het einde van het bestand. Bij EOF kan het programma 
beëindigd worden (de transacties voor de desbetreffende maand zijn 
dan in de direct-toegankelijke bestanden verwerkt). In regel 440 
wordt een volledig transactierecord gelezen, waarin o.a. het boe- 
kingsnummer (N$) staat). In regel 470 moet aan de hand van het 
eerste cijfer van N$ het nummer van het overeenkomstige direct- 
toegankelijke bestand worden bepaald. U wordt gevraagd de 
opdracht daarvoor te geven. 


(a) 400 REM VERWERKING TRANSACTIES 


410 REM 
420 REM LEES TRANSACTIERECORD SEQ. BESTAND 
425 REM 
430 IF EOF(1) THEN 730 
440 INPUT #1, K‚ DS, XS, NS, G 
450 REM 
460 REM BEPAAL NUMMER D.T. BESTAND EN INITIALISEER 
465 REM 
HIV reren sues: REM *** BESTANDNUMMER « F2$ 
480 REM 
490 LET F1$ = "BUDGET" + F2$ 
500 OPEN F1 AS 2 
510 FIELD 2, 4 AS NFS, 20 AS GFS, 4 AS BFS, 4 AS SFS 
520 REM 
(a) 470 LET F2$ = LEFTS(NS,1) 


In het volgende gedeelte moet op soortgelijke wijze uit het boekings- 
nummer het recordnummer worden bepaald en naar een getalwaarde 
worden geconverteerd. Dit getal wordt in regel 550 gecontroleerd op 
geldigheid, waarbij een ongeldig getal in het afdrukken van een 
foutboodschap en het afsluiten van het BUDGET #-bestand resulteert. 
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(a) 530 REM BEPAAL RECORDNUMMER EN CONVERTEER NAAR GETALWAARDE 


535 REM 
540 venvenerevnrveneeevenenent REM *** RECORDNUMMER » R *** 
550 IF R <= LOF(2)/256 THEN 620 
560 PRINT “ONGELDIG NUMMER OP BETAALKAART OF KASBEWIJS (*“; K; ")" 
570 PRINT “TRANSACTIE NIET VERWERKT" 
580 CLOSE 2 
GOTO 430 : REM *** TERUG VOOR VOLGENDE TRANSACTIE *** 
600 REM 
(a) 540 LET R = VAL(RIGHTS(NS,3)) 


In het laatste deel van het programma wordt het bij te werken 
record van het direct-toegankelijke bestand naar de buffer geko- 
pieerd, bijgewerkt en weer teruggeschreven. Geef zelf de nodige 
opdrachten daarvoor. 


(a) 610 REM KOPIEER RECORD VAN DIRECT-TOEGANKELIJK BESTAND NAAR BUFFER, 
612 REM MUTEER EN SCHRIJF TERUG 


615 REM 
620 wuunennensenenssvrrservent REM *** KOPIEER RECORD NAAR BUFFER *** 
630 wenennensennenvenervvenvet REM *** CONVERTEER SALDO NAAR 
GETALWAARDE *** 
640 wananneesvenerveneverenret REM *** BEPAAL NIEUW SALDO *** 
650 wevcevtereevsneordvenenent REN PhE MET LSET NAAR BUFFER tt 
660 wuunenvenrenrverreverenrei REM *** BUFFER NAAR BESTAND *** 
665 REM 
670 REM BESTAND AFSLUITEN EN TERUG VOOR VOLGENDE TRANSACTIE 
680 REM 
690 CLOSE 2 
700 GOTO 430 
710 REM 
720 REM ALLE BESTANDEN AFSLUITEN EN STOPPEN 
125 REM 
730 CLOSE 
999 END 
(a) 620 GET 
630 LET S « CVS(SF$) 
640 LET S =S +G 
650 LSET SFS = MKS$(S) 
660 PUT 2, R 


Hiermee zijn we aan het einde van dit programma gekomen. Een kri- 
tische noot mag echter niet ontbreken. Het programma leest namelijk 
doorlopend sequentiële transactierecords, en verwerkt ze in de des- 
betreffende direct-toegankelijke bestanden, tot het einde van het 
transactiebestand wordt bereikt. Daarbij worden de betrokken 
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bestanden steeds opnieuw geopend en gesloten, hetgeen voor het 
operating system de nodige rompslomp — oftewel overhead — met zich 
meebrengt. Dit zou te verbeteren zijn door de bestanden eerst te 
sorteren. Bovendien zouden controles kunnen worden ingebouwd 
die het onnodig sluiten en weer openen van hetzelfde direct- 
toegankelijke bestand voorkómen. Dit is in het volgende (alternatie- 
ve) fragment verwerkt. Een sterretje voor een regelnummer geeft 
een wijziging aan. 


400 REM VERWERKING TRANSACTIES 

402 REM 

404 LET F3$ = "X" : REM *** DUMMY WAARDE VOOR EERSTE KEER *** 

410 REM 

420 REM LEES TRANSACTIERECORDS SEQ. BESTAND 

425 REM 

430 IF EOF(1) THEN 730 

440 INPUT #1, K‚ DS, XS, NS, G 

450 REM 

460 REM BEPAAL NUMMER D.T. BESTAND EN INITIALISEER 

465 REM 

470 LET F2$ = LEFTS(NS, 1) 

480 IF_F2$ = F3$ THEN 540 : REM *** BI IDENTIEK BESTAND OPENEN OVERSLAAN *** 

485 LET F3$ = F2$ 7 REM **« F3$ VOOR VOLGENDE KEER AANPASSEN *** 

490 LET F1$ = "BUDGET" « F2$ 

500 REM OPEN Fi$ AS 2 

510 en FIELD 2, 4 AS NFS, 20 AS GFS, 4 AS BFS, 4 AS SFS 

50 Een BEPAAL RECORDNUMMER EN CONVERTEER NAAR GETALWAARDE 

35 REM 

540 LET R = VAL(RIGHTS(NS,3)) 

550 IF R <= LOF(2)/256 THEN 620 

560 PRINT “ONGELDIG NUMMER OP BETAALKAART OF KASBEWIJS (*; K; ")" 

El EE PRINT “TRANSACTIE NIET VERWERKT" 

on GOTO 430 : REM *#* TERUG VOOR VOLGENDE TRANSACTIE *** 

600 REM 

610 REM KOPIEER RECORD VAN DIRECT-TOEGANKELIJK BESTAND NAAR BUFFER; MUTEER 
EN SCHRIJF TERUG 

615 REM 

620 GET 2, R 

630 LET S= CVS(SF$) 

640 LET S =5+G 

650 LSET SFS = MKSS(E) 

660 PUT 2, R 

665 REM 

670 GOTO 430 

680 REM 

690 REM TERUG VOOR VOLGENDE TRANSACTIE 

695 REM 

700 GOTO 430 

710 REM 

Toetsvraag 


(a) Slechts een deel van deze toepassing is nu gerealiseerd. Welke 
andere programma's zijn nodig? 
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(a) Programma's voor: 

1. Het aanmaken van de MAAND#-bestanden aan de hand van 
kasboekgegevens, aantekeningen van betaalkaarten, enz. 

2. Het muteren van de MAAND#-bestanden. 

3, Het initialiseren van de BUDGET #-bestanden. 

4. Het toevoegen van nieuwe rekeningen aan de BUDGET #- 
bestanden. 

5. Het afdrukken van de BUDGET #-bestanden. 

6. Het controleren op mogelijke saldo-overschrijdingen (zoge- 
naamde uitzonderingsrapportage). 


8.3 TEN SLOTTE 


Wat direct-toegankelijke bestanden betreft hebben we ons in dit 
boek meestal beperkt tot records met vaste lengte, In S 7,3 werd 
reeds gezegd dat MSX BASIC voorziet in de mogelijkheid van 
records met variabele lengte. Daardoor kan de beschikbare schijf - 
ruimte efficiënter worden benut. Een andere mogelijkheid om de 
schijfbezetting te optimaliseren is verschillende logische records 
onder te brengen in één fysiek record. Aangezien dit in de meeste 
gebruikershandleidingen uitvoerig wordt beschreven, gaan we er 
hier niet op in. 

We hopen overigens dat u - dankzij dit boek — in staat zult zijn uw 
eigen gebruikershandleiding beter te begrijpen, en dat u meer oog 
hebt gekregen voor de mogelijkheden van uw computer! 


8.4 TOETSVRAGEN 


1. De eerste toepassing in dit hoofdstuk betrof voorraadbeheer. 
Hierbij werden de eigenlijke voorraadgegevens opgeslagen in een 
direct-toegankelijk bestand. Aan de hand van het artikel- of 
produktnummer kon het adres van het bijbehorende record in het 
direct-toegankelijke bestand worden bepaald. 

Neem nu aan dat dit systeem met een derde bestand is uitge- 
breid, waarin alle handelingen of transacties betreffende het 
voorraadbestand zijn geregistreerd. Daarbij zijn twee transactie- 
typen gedefinieerd: 


type 1 = transactie waarbij aan de voorraad wordt toegevoegd; 
type 2 = transactie waarbij uit de voorraad wordt weggenomen. 


Het transactiebestand is sequentieel georganiseerd en heeft de 
volgende recordindeling: 
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TRANSACTIETYPE (1 OF 2) 

DATUM (6) 

BONNUMMER (5) 

RODUKT-/ARTIKELNUMMER (4) 

HOEVEELHEID (TOENAME OF AFNAME VAN VOORRAAD) 


Schrijf een programma dat de hoeveelheden (HI) van het trans- 
actiebestand verwerkt in het voorraadbestand. 


‚ Breid het programma van opgave 1 zo uit dat, na het verwerken 


van alle transacties, het voorraadbestand kan worden onder- 
zocht op produkten waarvan de momentele voorraad kleiner is 
dan de kritische voorraad. Ten behoeve van bijbestellingen van 
deze produkten dient op verzoek een lijst te worden gemaakt. 


8.5 ANTWOORDEN OP DE TOETSVRAGEN 


1. 


100 REM OPGAVE 1, HOOFDSTUK 8 

105 REM 

110 REM DIT PROGRAMMA WERKT DE MOMENTELE VOORRADEN 
120 REM IN HET VOORRAADBESTAND BIJ AAN DE HAND VAN 
130 REM DE HOEVEELHEDEN IN HET TRANSACTIEBESTAND 


135 REM 
140 REM VARIABELENLIJST 

140 REM - RS = TE WIJZIGEN RECORD/ INVOER 

150 REM - P1S = PRODUKTNUMMER (4) 

160 REM - R_ = RECORDNUMMER 

170 REM - P$ = PRODUKTNUMMER (4) 

190 REM - D$ = BESCHRIJVING (20) 

200 REM _- L$ = LEVERANCIER (20) 

210 REM _- K _= KRITISCHE VOORRAAD 

220 REM -H = BESTELHOEVEELHEID 

230 REM _- M= MOMENTELE VOORRAAD 

240 REM _-C _= INKOOPPRIJS 

250 REM _- V = VERKOOPPRIJS PER VERPAKKINGSEENHEID 
260 REM _-T = TRANSACTIETYPE 

270 REM _- JS = DATUM (6) 

280 REM - NS = BONNUMMER (5) 

290 REM _- P2$ = PRODUKT-/ARTIKELNUMMER (4) 

300 REM _- HI = HOEVEELKEID (TOENAME OF AFNAME) 

310 REI 


M 
320 REM BESTANDEN 
330 REM = POINT = SEQUENTIEEL "POINTER" BESTAND 
340 REM = VOORRAAD = DIRECT TOEG. VOORRAADBESTAND 
350 REM = TRANSACT = SEQUENTIEEL TRANSACTIEBESTAND 
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REM 
REM 


REM 


REM 


INITIALISATIES 
MAXFILES = 


3 
OPEN "POINT" FOR INPUT AS 1 


OPEN "VOORRAAD" AS 2 


FIELD 2, 4 AS PFS, 20 AS DFS, 20 AS LFS, 4 AS KFS, 4 AS JFS, 
4 AS MFS, 4 AS CFS, 4 AS VFS 
OPEN “TRANSACT" FOR INPUT AS 3 


LEES TRANSACTIEBESTAND 
1F EOF(3) THEN 850 


INPUT #3, T, JS, N$, P2$, HI 


LEES RECORD POINTER BESTAND 


IF EOF(1) THEN 790 
INPUT #1, PIS, R 
IF P1$ <> P2$ THEN 480 


LEES VOORRAADRECORD EN WERK HOEVEELHEID BI 
IFR > ERIS THEN 750 
GET 2, 


LET M= Revsturs) 
IF T = 2 THEN 600 
LET M= M+ HI 
GOTO 620 


LET M= M- HI 


IF M < 0 THEN LET M= M + HI : GOTO 690 


LET MFS = MKSS(M) 
PUT 2, R 


STEL POINTER BESTAND IN OP BEGIN EN HERHAAL 


CLOSE 1 : OPEN "POINT" FOR INPUT AS 1 : GOTO 440 


FOUTOPVANG (1) 


PRINT “NEGATIEVE Re TRANSACTIE D.D. * 
PRINT JS; “ MET PRODUKTNR, “; P2$; 


PRINT “NIET VERWERKT" 
GOTO 660 


FOUTOPVANG (2) 


PRINT “FOUT RECORDNUMMER IN POINTER BESTAND” 
GOTO 8300 


FOUTOPVANG (3) 


PRINT “PRODUKTNUMMER NIET IN TRANSACTIEBESTAND" ; 


PRINT “TRANSACTIE D.D. 
PRINT “NIET VERWERKT" 
GOTO 440 

AFSLUITING 


CLOSE 


“; J$; “MET PRODUKTNUMMER *; 


z REM *** FOUT ter 


Pes; 


254 Toepassingen direct-toegankelijke bestanden 


2, 860 REM 
870 Re BESTELLIJST 
880 Ri 
890 LINE INPUT “BESTELLIJST MAKEN? (J/N): *; RS 
900 IF LEFTS(RS,1) <> "J" THEN 1060 
910 OPEN "VOORRAAD" AS 2 
920 FOR X = 1 TO LOF(2)/256 
930 GET 2 
340 LET K = CVS(KF$) 
350 LET J = CVS(JFS) 
960 LET M = CVS(MFS) 
970 LET C = CVS(CFS$) 
380 IF_M > K THEN 1050 
390 PRINT "BESTELLING PRODUKTNR. *; PFS 
1000 PRINT "OMSCHRIJVING ; DFS 
1010 PRINT "LEVERANCIER LFS 
1020 PRINT “HUIDIGE VOORRAAD M 
1030 PRINT “BESTELHOEVEELHEID : *; H 
1040 PRINT “VORIGE INKOOPPRIJS : *; C 
1050 NEXT X 
1060 CLOSE 


9999 END 


EINDTOETS 


1. Schrijf een programma waarmee een sequentieel schijfbestand 
TELEF1 kan worden gemaakt. De records moeten als een enkele 
string worden opgebouwd uit de volgende gegevens: 

— achternaam (maximaal 15 tekens) 

= voornaam/voorletter(s) (maximaal 15 tekens) 
- kengetal telefoon (maximaal 5 cijfers) 

— abonneenummer telefoon (maximaal 7 cijfers). 


2. Schrijf een programma waarmee de inhoud van het bestand 
TELEF1 (zie opgave 1) kan worden afgedrukt. De recordvelden 
dienen daarbij afzonderlijk onder de volgende kolomhoofden te 
verschijnen : 


ACHTERNAAM VOORNAAM KENGETAL ABONNEENR, 
eerste deel: 


100 REM EINDTOETS, OPGAVE 2 

110 REM 

120 REM _VARIABELENLIJST 

130 REM _ - R$ = SAMENGESTELDE RECORDSTRING 
140 REM 

150 REM BESTAND 

160 REM = TELEF1 SEQUENTIEEL/SCHIJF 

165 REM 


3. Schrijf een programma dat alle records van TELEF1 (zie opgave 1) 
met een gegeven kengetal selecteert en de inhoud daarvan afdrukt. 
Het kengetal moet door de gebruiker worden ingevoerd. Na het 
verwerken van een serie records dient het programma op verzoek 
een nieuwe serie records, met een ander kengetal, te kunnen 
selecteren en afdrukken. 


eerste deel: 


100 REM EINDTOETS, OPGAVE 3 

110 REM 

120 REM _VARIABELENLIJST 

130 REM _- K$ = KENGETAL 

140 REM - R$ = SAMENGESTELDE RECORDSTRING 
150 REM _- D$ = DIALOOG 

160 REM 

170 REM _ BESTANDEN 

180 REM = TELEF1 SEQUENTIEEL/SCHIJF 

185 REM 
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Eindtoets 


4. Schrijf een programma waarmee de inhoud van het direct 
toegankelijke bestand ARTBES (zie S 7.11, opgaven len 2) kan 
worden afgedrukt. 


eerste deel: 
EINDTOETS, OPGAVE 4 


240 
250 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


REM 
REM 
REM 
REM 


VARIABELENLIJST 

= NB$ = ARTIKELNUMMER (4) 
= XBS = OMSCHRIJVING (20) 
= LB$ = LEVERANCIER (20) 
- K, KBS = KRITISCHE VOORRAAD 
-B, BB$ = BESTELHOEVEELHEID 
= M, MBS = MOMENTELE VOORRAAD 
= I, 1B$ = INKOOPPRIJS 

= V‚, VB$ = EENHEIDSPRIJS (VERKOOP) 
- R$ = RESPONS 

BESTAND 


= ARTBES (DIRECT-TOEGANKELIJK) 


5. Schrijf een programma om in het bestand ARTBES (zie vorige 
opgave) de eenheidsprijs voor verkoop met 10% te verhogen. Het 
programma dient het artikelnummer, de oude prijs en de nieuwe 
prijs af te drukken. 


eerste deel: 
EINDTOETS, OPGAVE 5 
VARIABELENLIJST 


100 


REM 
REM 


Bake dirar 


BESTAN 
= ARTBES (DIRECT TOEGANKELIJK) 


NBS = ARTIKELNUMMER (4) 
XB$ = OMSCHRIJVING (20) 
LB$ = LEVERANCIER (20) 
= KRITISCHE VOORRAAD 
= BESTELHOEVEELHE ID 
= MOMENTELE VOORRAAD 
1B$ = INKOOPPRIJS 
= EENHEIDSPRIJS (VERKOOP) 
= RESPONS 


NIEUWE EENHEIDSPRIJS 
ID 


1. 


REM 


Eindtoets 
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EINDTOETS, OPGAVE 1 


VARIABELENLIJST 

= A$ = ACHTERNAAM 

= VS = VOORNAAM OF -LETTER(S) 

= K$ = KENGETAL 

= N$ = ABONNEENUMMER 

= R$ = SAMENGESTELDE RECORDSTRING 


BESTAND 
= TELEF! = SEQUENTIEEL SCHIJFBESTAND 


INITIALISATIES 


CLEAR 500 
OPEN “TELEF1" FOR OUTPUT AS 1 


GEGEVENSINVOER 


PRINT “GEEF 'STOP' ALS U KLAAR BENT MET INVOER" 
LEZEN, CONTROLEREN EN “UITVULLEN" VAN ACHTERNAAM 
GOSUB 520 

IF LEFTS(AS,4) = "STOP" THEN 480 

IDEM, VOORNAAM 

GOSUB 620 


IDEM, KENGETAL 
GOSUB 720 


15) 
15) 
5 


Egg 


7 
42) 


IDEM, ABONNEENUMMER 
GOSUB 820 


RECORD OPBOUWEN, WEGSCHRIJVEN EN HERHALEN 


LET R$ = A$ + VS + KS + NS 
PRINT #1, RS 


CLS 
GOTO 290 
AFSLUITING 


CLOSE 
PRINT “BESTAND GESLOTEN" 


END 
MODULE VOOR ACHTERNAAM 


LINE INPUT "ACHTERNAAM (MAX. 15 TEKENS): "; As 
IF LEN(A$) = 0 THEN 

PRINT "GEEN ACHTERNAAM INGEVOERD" : GOTO 520 
IF LEN(AS) > 15 THEN 

PRINT "MAXIMAAL 15 TEKENS. OPNIEUW AUB" : GOTO 520 
IF LEN (AS) < 15 THEN 

LET A$ =A$ +" " : GOTO 550 
RETURN 
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600 REM _CONTROLEMODULE VOORNAAM/-LETTER(S) 


610 REM 
620 LINE INPUT Et srerk LETTER(S) (MAX. 15 TEKENS) : “; VS 
630 IF LEN(VS) = 

PRINT VEEN VOORNAAM -LETTER(S) INGEVOERD" : GOTO 620 
640 IF LEN(VS) > 15 THEN 

PRINT "MAXIMAAL 15 TEKENS. OPNIEUW AUB" : GOTO 620 
650 IF LEN(VS) < 15 THEN 

LET VS = V$ +“ * : GOTO 650 
660 RETURN 
670 REM 
700 REM _CONTROLEMODULE KENGETAL 
710 REM 
720 LINE INPUT "KENGETAL (MAX, 5 CIJFERS) 1 4 KS 
730 IF LEN(KS) = 0 THEN 

PRINT "GEEN KENGETAL INGEVOERD" : GOTO 720 
740 IF VAL(KS) = 0 THEN 

PRINT “UITSLUITEND CIJFERS AUB" : GOTO 720 
750 IF LEN(KS) > 5 THEN 

PRINT "MAXIMAAL 5 CIJFERS. OPNIEUW AUB“ : GOTO 720 
760 IF LEN(KS) < 5 THEN 

LET K$ = KS 4" " : GOTO 760 
770 RETURN 
780 REM 
800 EN CONTROLEMODULE ABONNEENUMMER 

M 

820 LINE INPUT “ABONNEENUMMER (MAX. 7 CIJFERS) z *; NS 
830 IF LEN(NS) = 0 THEN 

PRINT “GEEN ABONNEENUMMER INGEVOERD" : GOTO 820 
840 IF VAL(NS) = 0 THEN 

PRINT “UITSLUITEND CIJFERS AUB“ : GOTO 820 
850 IF LEN(NS) > 7 THEN 

PRINT “MAXIMAAL 7 CIJFERS. OPNIEUW AUB" : GOTO 820 
860 IF LEN(NS) < 7 THEN 

LET NS =N$ +" " : GOTO 860 
870 RETURN 
880 REM 
999 END 


N.B,: In plaats van in afzonderlijke modules kunnen de controles 
uiteraard ook rechtstreeks in de hoofdtekst van het program- 
ma worden opgenomen. Deze zogenaamde modulaire opbouw 
is ons inziens echter duidelijker. 


Eindtoets 
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REM 


EINDTOETS, OPGAVE 2 
VARIABELENLIJST 

= R$ = SAMENGESTELDE RECORDSTRING 
BESTAND 

— TELEF1 SEQUENTIEEL/SCHIJF 
INITIALISATIES 


CLEAR 500 
OPEN "TELEF1" FOR INPUT AS 1 


VERWERKING 


PRINT "ACHTERNAA""; TAB(16); "VOORNAAM"; TAB(30) "TELEFOON" 
PRINT 


IF EOF(1) THEN 290 
INPUT #1, R$ 
PRINT LEFTS(RS,15); TAB(16); MIDS(RS,16,11); TAB(26); 
MIDS(R$,31,5); "-“; MIDS(R$,36,7) 
GoTO 240 


AFSLUIT ING 


CLOSE 1 
PRINT "EINDE GEGEVENS; BESTAND GESLOTEN" 
END 


Eindtoets 


EINDTOETS, OPGAVE 3 


VARIABELENL IJST 
ed = KENGETAL 


= R$ 
= D$ = DIALOOG 


BESTANDEN 


SAMENGESTELDE RECORDSTRING 


= TELEF SEQUENTIEEL/SCHIJF 


INITIALISATIES 
CLEAR 500 


OPEN "TELEF1" FOR INPUT AS 1 


INVOER KENGETAL 


LINE INPUT "KENGETAL(3 OF 5 CIJFERS): 


IF LEN(KS) = 3 THEN 


We kbie en, & RE te 2 SPATIES TOEVOEGEN *** 


IF LEN(KS) <© 5 THEN PRINT wINVOERFOUT H 
“INGEVOERD: "; K$; : GOTO 260 


VERWERKING 


CLS 
PRINT "ACHTERNAAM"; 
INT 


PR. 
IF EOF(1) THEN 410 
INPUT #1, R$ 

IF K$ © 'MIDS(RS, 


TAB(16); “VOORNAAM”; TAB(30); "TELEFOON" 


31,5) THEN 340 


PRINT LEFTS(RS,15); TAB(16); MIDS(RS,16,11); TAB(26); K$; "-"; 


MIDS (R$ 
GOTO 340 


PRINT 


36,7) 


PRINT "EINDE VOOR KENGETAL "; K$ 


PRINT 
LINE INPUT "NOG EEN 


KENGETAL? (J/N): "; D 


IF LEFTS(DS,1) = "N" THEN 520 


POINTER POSITIONEREN EN HERHALEN 


CLOSE 1 : OPEN “TELEF1" FOR INPUT AS 1 : GOTO 260 


AFSLUITING 
CLOSE 1 


PRINT 
PRINT “BESTAND GESLOTEN" 


END 


Eindtoets 
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REM 
REM 
REM 


EINDTOETS, OPGAVE 4 


VARIABELENL IJST 
BS = ARTIKELNUMMER (4) 

OMSCHRIJVING (20) 

LEVERANCIER (20) 

KRITISCHE VOORRAAD 

BESTELHOEVEELHEID 

MOMENTELE VOORRAAD 

= INKOOPPRIJS 

= EENHEIDSPRIJS (VERKOOP) 

= RESPONS 


ESTAND 
= ARTBES (DIRECT-TOEGANKEL IJK) 
INITIALISATIES 


OPEN “"ARTBES" AS 1 
FIELD 1, 4 AS NBS, 20 AS XB$, 20 AS LBS, 4 AS KBS, 4 AS BB$, 
AS MB$, 4 AS 1B$, 4 AS VB$ 


LEES RECORDS, CONVERTEER EN DRUK AF 


PRINT “GEEF RETURN VOOR VOLGEND RECORD" 
PRINT 
FOR X = 1 TO LOF(1)/256 

GET 1 


LET K = CVS(KBS) 

LET B = CVS(BB$) 

LET M = CVS(MBS) 

LET 1 = CVS(1B5) 

LET V = CVS(VBS) 

PRINT NBS; XB$; LB$; K; B; M; I; V 
LINE INPUT R$ 

NEXT X 


AFSLUITING 

PRINT : PRINT "EINDE BESTAND" 
CLOSE 1 

PRINT “BESTAND GESLOTEN" 

END 


REM 
REM 
REM 


Eindtoets 


EINDTOETS, OPGAVE 5 


VARIABELENLIJST 

ARTIKELNUMMER (4) 
OMSCHRIJVING (20) 
LEVERANCIER (20) 
KRITISCHE VOORRAAD 
BESTELHOEVEELHEID 
MOMENTELE VOORRAAD 
INKOOPPRIJS 
EENHEIDSPRIJS (VERKOOP) 
RESPONS 

NIEUWE EENHEIDSPRIJS 


& 

& 

8 
" 


" 
Ee 
& 
EERE 


BESTAND 
= ARTBES (DIRECT TOEGANKELIJK) 


INITIALISATIES 


OPEN "ARTBES" AS 1 
FIELD 1, 4 AS NBS, 20 AS XBS, 20 AS LBS, 4 AS KBS, 4 AS BBS, 
& AS MBS, 4 AS 185, 4 AS VBS 


VERWERKING 


PRINT "ART.NR"; TAB(12); "OUDE PRIJS"; TAB(25); “NIEUWE PRIJS" 
PRINT 
FOR X = 1 TO LOF(1)%256 
GET 1, X 
LET V_ = CVS(VB$) 
EA A 
LSET VB$ = MKS$(V1 
PRINT NBS; Met), Vs TAB(25); VI 
PUT 1, X 
NEXT X 


AFSLUIT ING 


CLOSE 1 
PRINT “PRIJZEN GEWIJZIGD, BESTAND GESLOTEN" 
END 


APPENDIX A 


BEKNOPT OVERZICHT VAN DE IN DIT BOEK GEBRUIKTE 


BASIC-OPDRACHTEN 


ASC(X$) 
CHR$S(X) 
CLOSE n 


CVI(BF$) 


CVS(BF$) 


CVD(BF$) 


EOF(n) 


FIELD #n 


GET n, r 


INPUT #n, X, Y$ 


LEFTS(X$‚n) 
LEN(X$) 


: Geeft de ASCII-getalwaarde van het 


eerste teken van X$. 


: Converteert de getalwaarde X naar het 


overeenkomstige ASCII-teken. 


: Sluit de in-/uitvoerbuffer verbonden met 


bestandnummer n. 


: Convert to integer. Converteert bij een 


direct-toegankelijk bestand de stringwaar- 
de in de buffervariabele BF$ naar een 
geheel getal. 


: Convert to single precision. Converteert bij 


een direct-toegankelijk bestand de string- 
waarde in de buffervariabele BFS$ naar een 
(gewoon) gebroken getal van enkele preci- 
sie. 


: Convert to double precision. Idem, dubbele 


precisie. 


: End of file. Logische functie die 'waar' is 


als het einde van een sequentieel bestand 
met nummer n is bereikt. 


: Inrichten van de buffer van een direct- 


toegankelijk bestand met nummer n, waarbij 
de buffer in een of meer stringvariabelen 
wordt opgedeeld. 


: Laad de buffer van een direct-toegankelijk 


bestand n met de inhoud van record r. 


: Lees twee gegevens van het sequentieel 


bestand n, en ken deze toe aan de variabe- 
len X en Y$. 


: Selecteert de linker n tekens in XS$. 
: Geeft het aantal tekens in X$ 
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LINE INPUT 


LOF (n) 
LPRINT 
LSET BFS$ 


MAXFILES = n 


MIDS(X$,m‚n) 


MKIS(X) 


MKS$(X) 


MKD$(X) 


OPEN "xxx! FOR M 
AS n 


OPEN "xxx" AS n 


PRINT #n 


PUT n,‚r 


RSET BF$ 


RIGHT $(X$‚n) 
STR$(X) 


VAL(XS) 


: Inlezen van één alfanumeriek gegeven, 


zonder gebruik van aanhalingstekens als 
afbakeningssymbolen. 


: Geeft de lengte van bestand n in bytes, 
: Schrijven naar printer. 
: Left set. Toekennen van een gegeven aan 


buffervariabele BF$, waarbij het gegeven 
links wordt aangesloten als zijn lengte 
kleiner is dan de lengte van de buffer- 
variabele. 


: Bepaalt het aantal bestanden (n), dat 


gelijktijdig in een programma geopend mag 
zijn (n = 0,1,...,15). De default-waarde 
van n is 1. 


: Vervangen of selecteren van m tekens van 


X$, te beginnen bij het teken in positie n. 


: Make integer. Converteert de numerieke 


waarde X naar een twee-byte integerwaar- 
de ten behoeve van opname in de buffer van 
een direct-toegankelijk bestand, 


: Make single precision. Idem, vier-byte 


enkele precisiewaarde. 


: Make double precision, Idem, acht-byte 


dubbele precisiewaarde. 


+ Opent een sequentieel bestand met naam 


xxx en nummer n. M staat voor mode en 
kan zijn: INPUT, OUTPUT of APPEND 
(schijf). 


1 Opent een direct-toegankelijk bestand met 


naam xxx en nummer n. 


1 Schrijven naar sequentieel bestand met 


nummer n. 


: Schrijf inhoud van buffer van direct- 


toegankelijk bestand n naar record r van 
dat bestand (transport van intern naar 
extern geheugen). 


: Als LSET, met dien verstande dat gegeven 


zonodig rechts wordt aangesloten. 


: Selecteert rechter n tekens van X$. 
: Geeft de alfanumerieke representatie van de 


getalwaarde X. 


: Geeft de numerieke representatie van de 


string XS$. 


APPENDIX B 


ASCII-CODE TABEL 
Decimale Teken Decimale Teken Decimale Teken 
waarde waarde waarde 

000 NUL 040 ( 080 P 
001 SOH 041 ) 081 Q 
002 STX 042 hd 082 R 
003 ETX 043 + 083 Ss 
004 EOT 044 1 084 ig 
005 ENQ 045 ee 085 u 
006 ACK 046 . 086 Vv 
007 BEL 047 / 087 w 
008 BS 048 0 088 X 
009 HT 049 1 089 nd 
010 LF 050 2 090 Z 
011 VI 051 3 091 { 
012 FF 052 4 092 nd 
013 CR 053 5 093 } 

014 So 054 6 094 + 
015 SI 055 1 095 - 
016 DLE 056 8 096 u 

017 DC1 057 9 097 a 
018 DC2 058 3 098 b 
019 DC3 059 EH 099 e 
020 DC4 060 < 100 d 
021 NAK 061 = 101 e 
022 SYN 062 > 102 f 

023 ETB 063 2 103 g 
024 CAN 064 @ 104 h 
025 EM 065 A 105 i 

026 SUB 066 B 106 j 

027 ESC 067 C 107 k 
028 FS 068 D 108 1 

029 GS 069 E 109 m 
030 RS 070 F 110 n 
031 us 071 G 111 o 
032 SP 072 H 112 P 
033 4 073 1 113 q 
034 hd 074 J 114 jd 
035 # 075 K 115 s 
036 $ 076 L 116 t 

037 % 077 M 117 u 
038 t 078 N 118 v 
039 ä 079 Oo 119 w 
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Decimale Teken Decimale 
waarde waarde 
120 x 124 
121 y 125 
122 z 126 
123 { 127 


Afkortingen ASCII-code tabel 


NUL Null 

SOH Start of Heading 
STX Start of Text 

ETX End Of Text 

EOT End of Transmission 
ENQ Enquiry 

ACK Acknowledge 

BEL Bell 

BS Backspace 

HT Horizontal Tabulation 
LF Line Feed 

VT Vertical Tabulation 
FF Form Feed 

CR Carriage Return 

SO _ Shift Out 

Sl Shift In 

SP Space 


Teken 


DLE 
DC1 
DC2 
DC3 
DC4 
NAK 
SYN 
ETB 
CAN 
EM 

SUB 
ESC 
FS 

GS 

RS 

Us 

DEL 


| 
} 
DEL 


Data Link Escape 
Device Control 1 

” " 

" „3 

" „4 
Negative Acknowledge 
Synchronous Idle 
End of Transmission Block 
Cancel 
End of Medium 
Substitute 
Escape 
File Separator 
Group Separator 
Record Separator 
Unit Separator 
Delete 


APPENDIX C 


FOUTMELDINGEN 
Foutmelding Code Verklaring 
Bad file name 56 (Foute programma- of bestandsnaam) 


U hebt een verkeerde naam gebruikt 
om een programma of een bestand 
aan te duiden. 


Bad file number 52 (Fout bestandsnummer) 
Het nummer dat u gebruikt verwijst 
naar een bestand dat nog niet 
geopend is met de instructie OPEN, 
of het nummer is hoger dan het aan- 
tal bestanden dat met MAXFILES is 
gedefinieerd, 


Can't CONTINUE 17 (Kan niet doorgaan) 

U probeert, door CONT in te typen, 

door te gaan met een programma dat: 

— onderbroken is door een foutmel- 
ding; 

— gewijzigd is nadat de uitvoering is 
afgebroken ; 

= niet bestaat. 


Device 1/0 error 19 (Invoer- of uitvoerfout) 
Tijdens het inlezen of wegschrijven 
van een bestand of een programma 
is een fout geconstateerd, 


Direct statement 57 (Directe opdracht) E 
Tijdens het inlezen van een ASCII- 
bestand is een directe opdracht 
gevonden, 


Division by zero 11 (Delen door nul) 
Bij het uitvoeren van een berekening 
ontdekt de computer een deling door 
0 of een machtsverheffing van 0 met 
een negatieve exponent, De nul kan 
ook het resultaat zijn van een voor- 
gaande berekening. 
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Field overflow 


File already open 


File not open 


Illegal direct 


Illegal function call 


Input past end 


Internal error 


Line buffer 
overflow 


50 


54 


59 


12 


55 


51 


25 


(Veld loopt over) 
Het aantal bytes, toegekend met de 
instructie FIELD, is groter dan 256. 


(Bestand al geopend) 

U vraagt de computer met de instruc- 
tie OPEN een bestand te openen dat 
al geopend is, of u probeert met 
KILL een bestand te wissen dat 
geopend is. 


(Bestand niet geopend) 

U probeert een bestand in te lezen 
of weg te schrijven dat nog niet is 
geopend met de instructie OPEN. 


(Niet toegestane directe opdracht) 
U hebt een instructie ingetoetst die 
in de directe stand niet is toegestaan. 


(Niet toegestane functie-aanroep ) 
Bij het aanroepen van een functie 
is een verkeerde argumentwaarde 
meegegeven. Dit kan het geval zijn 
bij: 
= een negatieve of te grote index, 
bijvoorbeeld A(-2); 
nul of een negatieve waarde bij een 
LOG-functie; 
een negatieve waarde bij een SQR- 
functie; 
Een onjuiste waarde bij één van de 
volgende instructies: MID$, LEFT $, 
RIGHTS, INP, OUT, PEEK, POKE, 
TAB, SPC, STRINGS, SPACES, 
DELETE, INSTR$, ON....GOTO of 
N....GOSUB. 


(Invoer voorbij einde) 

U probeert gegevens te lezen uit een 
bestand dat al helemaal gelezen is. 
Gebruik de functie EOF om deze fout 
te voorkomen, 


' 


(Interne fout) 

Er doet zich een onverwachte situatie 
voor die niet kan worden opgelost 
door de BASIC-interpreter. 


(Regelbuffer loopt over) 
U hebt een te lange regel ingetoetst. 
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Missing operand 


NEXT without FOR 


No RESUME 


Out of DATA 


Out of memory 


Out of string space 


Overflow 


Redimensioned 
array 


RESUME without 
error 


24 


21 


14 


10 


22 


(Operand ontbreekt) 

Een expressie bevat een functie, een 
instructie of een commando zonder 
operand, dat wil zeggen zonder 
getal of string waarop de bewerking 
kan worden uitgevoerd. 


(NEXT zonder FOR) 

De variabele in de NEXT instructie 
correspondeert niet met de variabele 
in de laatste FOR-instructie, of de 
computer komt een NEXT-instructie 
tegen zonder voorafgaande FOR- 
instructie. 


(Geen RESUME) 

Na het afhandelen van een fout ont- 
breekt de instructie RESUME (= her- 
vat het programma). 


(Geen DATA meer) 

Er wordt een READ-instructie uitge- 
voerd terwijl er geen gegevens meer 
zijn die nog gelezen kunnen worden. 


(Geen geheugen meer) 

Een programma is te groot of bevat 
te veel FOR-lussen, GOSUB-instruc- 
ties of variabelen, Het kan ook te 
ingewikkelde uitdrukkingen bevatten. 


(Geen stringruimte meer) 

Er zijn meer alfanumerieke variabelen 
dan de gereserveerde stringruimte 
kan bevatten. Gebruik de instructie 
CLEAR om meer stringruimte te 
reserveren. 


(Register loopt over) 

Het resultaat van een berekening is 
groter dan bij de gekozen variabele 
kan worden weergegeven. 


(Array opnieuw gedimensioneerd) 
Er zijn twee DIM-instructies voor 
dezelfde variabele gegeven’, of een 
variabele die al in gebruik is wordt 
geDIMensioneerd, 


(RESUME zonder foutmelding) 

De computer wordt met een RESUME- 
instructie gevraagd het programma 
te hervatten zonder dat de instruc- 
tie ON ERROR GOTO is uitgevoerd. 
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RETURN without 3 
GOSUB 


Sequential I/O only 58 


String formula too 16 
complex 


String too long 15 
Subscript out of 9 
range 

Syntax error 2 
Type mismatch 13 
Unidentified line 8 
number 


Unidentified user 18 
funetion 


Unprintable error 23 
26...49 
60...255 


(RETURN zonder GOSUB) 

De computer komt de instructie 
RETURN tegen zonder dat er een 
GOSUB aan vooraf is gegaan. 


(Alleen sequentiële in- en uitvoer) 

U probeert in een sequentieel bestand 
te lezen of te schrijven alsof het een 
‘random'-bestand (willekeurig toe- 
gankelijk bestand) is. 


(Stringexpressie te complex) 
De alfanumerieke uitdrukking is te 
lang of te ingewikkeld, 


(String te lang) 

Er is geprobeerd meer dan 255 alfa- 
numerieke tekens in een string te 
stoppen. 


(Index buiten het bereik) 

Er wordt een poging gedaan een ele- 
ment te gebruiken met een index 
buiten het geDIMensioneerde gebied. 


(Syntaxis-fout) 

Een commando, instructie of functie 
bevat een spelfout, een onjuiste 
interpunctie of zondigt tegen de 
taalregels van MSX BASIC. 


(Verkeerd type) 

Aan een numerieke variabele wordt 

een alfanumerieke waarde toegekend 
of omgekeerd, of aan een functie is 
een alfanumerieke waarde toegekend 
in plaats van een numerieke waarde. 


(Onbekend regelnummer ) 

Een commando of een instructie ver- 
wijst naar een niet bestaande pro- 
grammaregel. 


(Onbekende gebruikersfunctie) 

Er wordt een gebruikersfunctie aan 
geroepen voordat die is gedefinieerd 
met de instructie DEF. 


(Foutmelding zonder omschrijving ) 
Deze foutcodes zijn in MSX BASIC 
niet gedefinieerd. U mag ze gebrui- 
ken om uw eigen foutmeldingen te 
definiëren. 
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Verify error 20 (Verificatiefout ) 
Deze foutmelding treedt op als het 
programma in het geheugen verschilt 
met het programma op cassette na 
het uitvoeren van de instructie 
CLOAD?, 


Bron: gebruiksaanwijzing voor de PHILIPS MSX-thuiscomputer 
VG 8020 


APPENDIX D 
GERESERVEERDE MSX BASIC WOORDEN 


De volgende woorden zijn gereserveerd voor MSX BASIC en mogen 
niet als namen voor variabelen worden gebruikt en ook niet als deel 
van een naam. 


ABS DATA IF NAME SAVE 
AND DEF IMP NEW SCREEN 
AS DEFINT INKEYS$ NEXT SGN 
ASC DEFDBL INP NOT SIN 
ATN DEFSNG INPUT OCTS SOUND 
AUTO DEFSTR INPUT S$ OFF SPACES 
BASE DEFUSR INSTR ON SPC 
BEEP DELETE INT OPEN SPRITE 
BINS$ DIM INTERVAL OR SPRITE $ 
BLOAD DRAW KEY OUT SQR 
BSAVE DSKF KILL PAD STEP 
CALL ELSE LEFT$ PAINT STICK 
CDBL END LEN PDL STOP 
CHR$ EOF LET PEEK STR$ 
CINT EQV LINE PLAY STRIG 
CIRCLE ERASE LIST POINT STRINGS$ 
CLEAR ERL LLIST POKE SWAP 
CLOAD ERR LOAD POS TAB 
CLOSE ERROR LOC PRINT TAN 
CLS EXP LOCATE PSET THEN 
COLOR FIELD LOF PRESET TIME 
CONT FILES LOG PUT TROFF 
COPY FIX LPOS READ TRON 
COS FN LPRINT REM USING 
CSAVE FOR LSET RENUM USR 
CSNG FRE MAXFILES RESTORE VAL 
CSRLIN GET MERGE RESUME VARPTR 
CVD GOSUB MIDS$ RETURN VDP 
CVI GOTO MKDS RIGHTS VPEEK 
CVS HEXS$ MKIS RND VPOKE 
MOD RSET WAIT 
MOTOR RUN WIDTH 


MKSS XOR 


APPENDIX E 
MSX BASIC BESTURINGSOPDRACHTEN (COMMANDO'’S) 


AUTO : Geeft na elke RETURN automatisch een volgend regel 
nummer, 
Voorbeelden : 
AUTO : regelnummers 10,20,30,40,..., enzovoort 


AUTO 100, 50 : regelnummers 100,150,200,..., enzovoort 

COPY : kopieert één of meer bestanden op dezelfde diskette of 
naar een andere diskette. MSX-2 computers kennen 
veel speciale COPY-opdrachten voor het kopiëren van 
grafische schermen. 


DELETE : Verwijdert programmaregels uit het geheugen. 
Voorbeelden : 


DELETE 40 : verwijdert regel 40 
DELETE 40-100 : verwijdert regels 40 t/m 100 
DELETE -40 : verwijdert alles t/m regel 40 


(L)FILES :-Drukt een lijst af met een opgave van alle bestanden op 
de diskette in de hoofddrive (drive A) 
FILES "B:*,‚+" drukt een overzicht van alle bestanden 
op de B-drive af. 


KILL : Verwijdert een bestand van diskette. 
Voorbeeld: KILL "PROG-4.BAS", 


LIST : Drukt de tekst van het programma in het geheugen op 
het scherm af, 
Voorbeelden : 


LIST : alle programmaregels 
LIST 120 : alleen regel 120 

LIST 150- : alle regels vanaf regel 150 
LIST -200 : alle regels t/m regel 200 


LIST 150-200 : alle regels vanaf regel 150 t/m regel 200 


LLIST : Drukt de tekst van een programma in het geheugen op 
de printer af. 
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(C)LOAD 
MERGE 


NAME 


NEW 
RENUM 


RENUM 


: Laadt een programma van cassetteband of van diskette. 


1 Voegt een programma van diskette of cassetteband toe 


(of in) aan het programma in het geheugen. Bij gelijke 
regelnummers wint het bestand het van de regels in 
het geheugen, Het bestand moet een ASCII-bestand 
zijn. 

Voorbeeld: MERGE "SORT" of "MERGE "CAS:SORT". 


: Geeft een diskettebestand een andere naam. 


Voorbeeld: NAME "PRO6-4.BAS" AS "VALUTA.BAS" 
De laatste bestandsnaam wordt de nieuwe naam. 


: Verwijdert het programma dat in het geheugen staat. 


: Hernummert de programmaregels van het programma in 


het geheugen. 
Voorbeelden : 


: hernummert alle regels. De eerste regel 
wordt regel 10; de volgende steeds 10 
hoger. 


RENUM 300, ,50 : hernummert alle regels, De eerste regel 


wordt regel 300; de volgende steeds 50 
hoger. 


RENUM 1000,900,50 : hernummert de programmaregels beginnend 


RUN 


RUN 
RUN 100 


met regel 900. Deze regel krijgt nummer 
1000; alle volgende steeds 50 hoger. 


: Start de uitvoering van het programma dat in het geheu- 


gen staat. 
Voorbeelden : 


: start programma vanaf de eerste regel 
: start programma vanaf regel 100 


RUN "PROG5-7" : laadt programmabestand met de naam PROG5-7 


(C)SAVE 


WIDTH 


in het geheugen en start de uitvoering ervan. 


: Kopieert het programma dat in het geheugen staat op 


(cassette) diskette. 


: Stelt de breedte in van een beeldschermregel. 


MSX-1 computers: maximaal WIDTH 40 
MSX-2 computers: maximaal WIDTH 80 


INDEX 


aanhalingstekens forceren 103 
afronding 39 
afsluitwaarde 184 
algoritme 19 
AND-operator 37 

ANSI 2 

append 95, 96, 134 
argument 112 
array-dimensionering 194 
ASC-functie 42 

ASCII 40, 41, 91 
asterisk 6 


beeldschermgebruik 80 
berekeningsmodule 5 
bestand 

fsluiten 107 

- direct-toegankelijk 93 

= sequentieel 93 

= verwijderen (KILL) 116 

= zie ook: sequentieel bestand 


direct-toegankelijk bestand 


bestandsmodule 5 
blank 
= zie: spatie 


boodschappenprogramma 194, 198 


buffer 98 
= inrichten 207 
bulk eraser 188 
byte 91 


cassette(bestanden) 182 
- kopiëren 189 

- uitbreiden 193 

- wissen 188 

CHRS-functie 42, 104 
CLOSE-opdracht 98, 206 
CLS-opdracht 151 
concateneren 34 
conservatief programmeren 4 
constanten 25, 34 
CONTROL-toets 40 
CVD-functie 221 
CVI-functie 221 
CVS-functie 221 


DATA-opdracht 12, 28 
debugging 4 

density (floppy) 89 
direct-toegankelijk bestand 

= afdrukken 235 

- kopiëren 224 

= muteren 227 

— recordvolgorde veranderen 
disk operating systeem (DOS) 
double precision 92 

dummy variabele 151 


editten 150 

file 111 

= bijcassettes 187 
EOF-functie 111 
executietijd 5, 19 


FIELD-opdracht 207 
floppy _ 89 


FOR/NEXT-opdrachten 16, 17, 25, 54 


gebruiksaanwijzing 9 
gegevens 61 

— alfanumeriek 25 

= analysemodule 5 

= bestand 61, 87 

= integriteit 12, 61 

= invoer 11,61 

= invoermodule 5 

= numeriek 25 

= verificatie 12, 61 
geheugengebruik 19, 24 
geneste FOR/NEXT 17 
GET-opdracht 216 
GOSUB-opdracht 7 
GOTO-opdracht 7 


hexadecimale constanten 92 


205 


234 
94 
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'IF...THEN'-opdracht 17, 35 pointer 
- in multi-opdrachtregel 56 - zie: wijzer 
illegale tekens 77 pointerbestand 240 
informatie 61 PRINT-opdracht 100 
initialisatie 'PRINT USING'-opdracht 19 
= variabelen, arrays 11 programmabestand 89 
- direct-toegankelijk bestand 206 programmeren 
INPUT ERROR 188 = conservatief 4 
input-mode (OPEN) 95 - gestructureerd 5 
INPUT-opdracht 30, 109, 174, 175, 183 - modulair 5 
INPUT PAST END 111 prompt(string) 30, 50 
INSTR-functie 50 PUT-opdracht 213 
integer 20, 92 
intern geheugen random access bestand 
- zie: werkgeheugen - zie: direct-toegankelijk bestand 
inter-record gap 184 random access mode (OPEN) 95 
inventarisprogramma 106, 110, 184 READ-opdracht 28 

record 
keyword 16 - current 215 
KILL-commando/opdracht 116 = fysiek 205 

= logisch 93, 205 
label 25 = volgorde veranderen 234 
layout 15 REDO FROM START 31 
LEFTS$-functie 49 relationele operatoren 36 
LEN-functie 44 REMARK-opdracht 6,7, 14 
lengte controle 64 RENUMBER-commando 15 
LET-opdracht 27 reserved word list 24 
'LINE INPUT'-opdracht 30, 33 RIGHTS-functie 49 
listing 1 RSET-opdracht 212 
LOF-functie 217 rubriek 8 
LSET-functie 212 RUN-commando 74 

run, p: mma- 10 
menu 53, 227 znne 
merge 160 - zie: executietijd 
MKIS-functie 220 
MKDS-functie 220 samengestelde voorwaarde 37 
MKSS-functie 220 sequentieel bestand 
MIDS$-functie 45 = converteren naar direct 230 
minimal BASIC 2 „editten 150 
module 5,8, 70 - kopiëren 132 
multi-opdrachtregel 6, 17, 20, 56 = muteren 141 
multiple ment line = samenvoegen (merge) 160 
= zie: multi-opdrachtregel = schrijven naar 100 
mutatiegraad 94, 205 — uitbreiden 134 

single precision 92 
oktale constanten 92 sleutel 160 
'ON...GOTO'-opdracht 52 spatie(s) 33, 41 
ontluizen = string aanvullen met 65 
= zie: debugging = verwijderen 66 
OPEN-opdracht 95 spoor 90 
operator sprong 52 
= concatenatie 34 standaardbriefprogramma 169 
= logisch 37 STRS-functie 76 
- vergelijkings-/relationele 36 string 25 
optie 9, 227 = concateneren 34 
OR-operator 37 - vergelijken 41 
OUT OF DATA 187 = wijzigen met MIDS 46 
output-mode (OPEN) 95 subroutine 13, 70 


overdraagbaarheid 3,6, 39 
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substring__45, 50 
SYNTAX ERROR 26, 104 
syntaxis 204 


tekstverzorgingsmodule 5 
toekenning 25, 27 
top-to-bottom 5 

track 90 

transactie 80, 93, 244 


uitvoerpresentatiemodule 5, 13 
uitzonderingsrapportage 251 
utility-programma 131 


variabele 

— naamgeving 24 
= stri 
vergelijkingsoperatoren 36 
VAL-functie 73 
voorraadprogramma 211 


werkgeheugen 61, 88 

wijzer 

= bij READ/DATA 29 

= bij bestandverwerking 111, 137, 174 

= sequentieel bestand als recordwijzer 240 
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